App-LWPUtils

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "x_spec" : {
            "Rinci" : "v1.1.88"
         }
      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::array" : "0",
            "Data::Sah::Compiler::perl::TH::bool" : "0",
            "Data::Sah::Compiler::perl::TH::hash" : "0",
            "Data::Sah::Compiler::perl::TH::str" : "0",
            "HTTP::Request" : "0",
            "LWP::UserAgent" : "0",
            "LWP::UserAgent::Plugin" : "0",
            "Log::ger" : "0.027",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLine::Base" : "1.816",
            "Perinci::CmdLine::Classic" : "1.770",
            "Perinci::Sub::Util" : "0.46",
            "perl" : "5.010001",
            "strict" : "0",
            "warnings" : "0"

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-LWPUtils
requires:
  Data::Sah::Compiler::perl::TH::array: '0'
  Data::Sah::Compiler::perl::TH::bool: '0'
  Data::Sah::Compiler::perl::TH::hash: '0'
  Data::Sah::Compiler::perl::TH::str: '0'
  HTTP::Request: '0'
  LWP::UserAgent: '0'
  LWP::UserAgent::Plugin: '0'
  Log::ger: '0.027'
  Perinci::CmdLine::Any: '0'
  Perinci::CmdLine::Base: '1.816'
  Perinci::CmdLine::Classic: '1.770'
  Perinci::Sub::Util: '0.46'
  perl: '5.010001'
  strict: '0'
  warnings: '0'

Makefile.PL  view on Meta::CPAN

    "script/lwputil-request-plugin"
  ],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.010001",
  "NAME" => "App::LWPUtils",
  "PREREQ_PM" => {
    "Data::Sah::Compiler::perl::TH::array" => 0,
    "Data::Sah::Compiler::perl::TH::bool" => 0,
    "Data::Sah::Compiler::perl::TH::hash" => 0,
    "Data::Sah::Compiler::perl::TH::str" => 0,
    "HTTP::Request" => 0,
    "LWP::UserAgent" => 0,
    "LWP::UserAgent::Plugin" => 0,
    "Log::ger" => "0.027",
    "Perinci::CmdLine::Any" => 0,
    "Perinci::CmdLine::Base" => "1.816",
    "Perinci::CmdLine::Classic" => "1.770",
    "Perinci::Sub::Util" => "0.46",
    "strict" => 0,
    "warnings" => 0
  },

Makefile.PL  view on Meta::CPAN

  }
);


my %FallbackPrereqs = (
  "Data::Sah::Compiler::perl::TH::array" => 0,
  "Data::Sah::Compiler::perl::TH::bool" => 0,
  "Data::Sah::Compiler::perl::TH::hash" => 0,
  "Data::Sah::Compiler::perl::TH::str" => 0,
  "File::Spec" => 0,
  "HTTP::Request" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "LWP::UserAgent" => 0,
  "LWP::UserAgent::Plugin" => 0,
  "Log::ger" => "0.027",
  "Perinci::CmdLine::Any" => 0,
  "Perinci::CmdLine::Base" => "1.816",
  "Perinci::CmdLine::Classic" => "1.770",
  "Perinci::Sub::Util" => "0.46",
  "Test::More" => 0,

dist.ini  view on Meta::CPAN

[InsertExecsList]

[@Author::PERLANCAR]
:version=0.594

[Prereqs]
perl=5.010001
strict=0
warnings=0
HTTP::Request=0
;!lint_prereqs assume-used "undetected"
LWP::UserAgent=0
;!lint_prereqs assume-used "undetected"
LWP::UserAgent::Plugin=0
Perinci::Sub::Util=0.46

[Prereqs / DevelopX_spec]
-phase=develop
-relationship=x_spec
Rinci=1.1.88

lib/App/LWPUtils.pm  view on Meta::CPAN

use 5.010001;
use strict;
use warnings;

use Perinci::Sub::Util qw(gen_modified_sub);

our %SPEC;

sub _lwputil_request {
    require HTTP::Request;

    my ($class, %args) = @_;

    (my $class_pm = "$class.pm") =~ s!::!/!g;
    require $class_pm;

    my $res;
    my $method = $args{method} // 'GET';
    for my $i (0 .. $#{ $args{urls} }) {
        my $url = $args{urls}[$i];
        my $is_last_url = $i == $#{ $args{urls} };

        my $req = HTTP::Request->new($method => $url);

        if (defined $args{headers}) {
            for (keys %{ $args{headers} }) {
                $req->header($_ => $args{headers}{$_});
            }
        }
        if (defined $args{content}) {
            $req->content($args{content});
        } elsif (!(-t STDIN)) {
            local $/;