App-instopt

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Copy" : "0",
            "File::Path" : "0",
            "File::Slurper" : "0",
            "File::Util::Test" : "0.628",
            "File::chdir" : "0",
            "Filename::Archive" : "0.032",
            "Filename::Executable" : "0",
            "HTTP::Request" : "0",
            "IPC::System::Options" : "0.339",
            "LWP::UserAgent" : "0",
            "Log::ger" : "0.038",
            "Module::List::Tiny" : "0",
            "PERLANCAR::File::HomeDir" : "0",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLineX::CommonOptions::SelfUpgrade" : "0.003",
            "Perinci::Object" : "0.311",
            "PerlX::Maybe" : "0",
            "Sah::Schema::dirname" : "0",

META.yml  view on Meta::CPAN

  Data::Sah::Compiler::perl::TH::str: '0.914'
  Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix: '0'
  Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix: '0'
  File::Copy: '0'
  File::Path: '0'
  File::Slurper: '0'
  File::Util::Test: '0.628'
  File::chdir: '0'
  Filename::Archive: '0.032'
  Filename::Executable: '0'
  HTTP::Request: '0'
  IPC::System::Options: '0.339'
  LWP::UserAgent: '0'
  Log::ger: '0.038'
  Module::List::Tiny: '0'
  PERLANCAR::File::HomeDir: '0'
  Perinci::CmdLine::Any: '0'
  Perinci::CmdLineX::CommonOptions::SelfUpgrade: '0.003'
  Perinci::Object: '0.311'
  PerlX::Maybe: '0'
  Sah::Schema::dirname: '0'

Makefile.PL  view on Meta::CPAN

    "Data::Sah::Compiler::perl::TH::str" => "0.914",
    "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" => 0,
    "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" => 0,
    "File::Copy" => 0,
    "File::Path" => 0,
    "File::Slurper" => 0,
    "File::Util::Test" => "0.628",
    "File::chdir" => 0,
    "Filename::Archive" => "0.032",
    "Filename::Executable" => 0,
    "HTTP::Request" => 0,
    "IPC::System::Options" => "0.339",
    "LWP::UserAgent" => 0,
    "Log::ger" => "0.038",
    "Module::List::Tiny" => 0,
    "PERLANCAR::File::HomeDir" => 0,
    "Perinci::CmdLine::Any" => 0,
    "Perinci::CmdLineX::CommonOptions::SelfUpgrade" => "0.003",
    "Perinci::Object" => "0.311",
    "PerlX::Maybe" => 0,
    "Sah::Schema::dirname" => 0,

Makefile.PL  view on Meta::CPAN

  "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" => 0,
  "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" => 0,
  "File::Copy" => 0,
  "File::Path" => 0,
  "File::Slurper" => 0,
  "File::Spec" => 0,
  "File::Util::Test" => "0.628",
  "File::chdir" => 0,
  "Filename::Archive" => "0.032",
  "Filename::Executable" => 0,
  "HTTP::Request" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "IPC::System::Options" => "0.339",
  "LWP::UserAgent" => 0,
  "Log::ger" => "0.038",
  "Module::List::Tiny" => 0,
  "PERLANCAR::File::HomeDir" => 0,
  "Perinci::CmdLine::Any" => 0,
  "Perinci::CmdLineX::CommonOptions::SelfUpgrade" => "0.003",
  "Perinci::Object" => "0.311",

dist.ini  view on Meta::CPAN

warnings=0
App::swcat=0.015
Archive::Any=0
File::chdir=0
File::Copy=0
File::Path=0
File::Slurper=0
File::Util::Test=0.628
Filename::Archive=0.032
Filename::Executable=0
HTTP::Request=0
IPC::System::Options=0.339
Log::ger=0.038
LWP::UserAgent=0
Module::List::Tiny=0
Perinci::CmdLine::Any=0
Perinci::CmdLineX::CommonOptions::SelfUpgrade=0.003
Perinci::Object=0.311
PERLANCAR::File::HomeDir=0
PerlX::Maybe=0
Sah::Schema::software::arch=0

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

sub _ua {
    unless ($_ua) {
        require LWP::UserAgent;
        $_ua = LWP::UserAgent->new;
    }
    $_ua;
}

# try to resolve redirect
sub _real_url {
    require HTTP::Request;

    my $url = shift;

    my $ua = _ua();
    while (1) {
        my $res = $ua->simple_request(HTTP::Request->new(HEAD => $url));
        if ($res->code =~ /^3/) {
            if ($res->header("Location")) {
                $url = $res->header("Location");
                next;
            } else {
                die "URL '$url' redirects without Location";
            }
        } elsif ($res->code !~ /^2/) {
            warn "Can't HEAD URL '$url': ".$res->code." - ".$res->message;
            # give up