Dist-Surveyor

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.019     2017-06-09 01:32:40-04:00 America/New_York
	- Bump HTTP::Tiny requirement to 0.056 for can_ssl

0.018     2017-06-06 12:52:16-04:00 America/New_York
	- Add --version option to dist_surveyor script
	- Send a better user-agent string with HTTP requests

0.017     2017-06-05 15:36:07-04:00 America/New_York
	- Use MetaCPAN v1 API
	- Add wget and curl fallback when IO::Socket::SSL is not available for fatpacked script

0.016     2016-06-15 23:03:13-04:00 America/New_York
	- Use Test::RequiresInternet in test files

0.015     2016-06-11 21:51:03-04:00 America/New_York
	- Sort generated 02packages case insensitively (miyagawa)
	- Use HTTP::Tiny instead of LWP::UserAgent
	- Use JSON::MaybeXS instead of JSON

0.014     2016-06-11 17:48:44-04:00 America/New_York

META.json  view on Meta::CPAN

            "Test::Pod" : "1.41",
            "Test::Portability::Files" : "0",
            "version" : "0.9905"
         }
      },
      "runtime" : {
         "requires" : {
            "CPAN::DistnameInfo" : "0",
            "Compress::Zlib" : "0",
            "HTTP::Tiny" : "0.056",
            "IO::Socket::SSL" : "1.56",
            "JSON::MaybeXS" : "1.001000",
            "List::Util" : "0",
            "Memoize" : "0",
            "Module::CoreList" : "0",
            "Module::Metadata" : "0",
            "Net::SSLeay" : "1.49",
            "Scalar::Util" : "0",
            "Storable" : "0",
            "perl" : "5.006",
            "version" : "0"

META.yml  view on Meta::CPAN

  Dist::Surveyor::Inquiry:
    file: lib/Dist/Surveyor/Inquiry.pm
    version: '0.022'
  Dist::Surveyor::MakeCpan:
    file: lib/Dist/Surveyor/MakeCpan.pm
    version: '0.022'
requires:
  CPAN::DistnameInfo: '0'
  Compress::Zlib: '0'
  HTTP::Tiny: '0.056'
  IO::Socket::SSL: '1.56'
  JSON::MaybeXS: '1.001000'
  List::Util: '0'
  Memoize: '0'
  Module::CoreList: '0'
  Module::Metadata: '0'
  Net::SSLeay: '1.49'
  Scalar::Util: '0'
  Storable: '0'
  perl: '5.006'
  version: '0'

Makefile.PL  view on Meta::CPAN

  "EXE_FILES" => [
    "bin/dist_surveyor"
  ],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.006",
  "NAME" => "Dist::Surveyor",
  "PREREQ_PM" => {
    "CPAN::DistnameInfo" => 0,
    "Compress::Zlib" => 0,
    "HTTP::Tiny" => "0.056",
    "IO::Socket::SSL" => "1.56",
    "JSON::MaybeXS" => "1.001000",
    "List::Util" => 0,
    "Memoize" => 0,
    "Module::CoreList" => 0,
    "Module::Metadata" => 0,
    "Net::SSLeay" => "1.49",
    "Scalar::Util" => 0,
    "Storable" => 0,
    "version" => 0
  },

Makefile.PL  view on Meta::CPAN

    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Archive::Tar" => 0,
  "CPAN::DistnameInfo" => 0,
  "Compress::Zlib" => 0,
  "HTTP::Tiny" => "0.056",
  "IO::Socket::SSL" => "1.56",
  "JSON::MaybeXS" => "1.001000",
  "List::Util" => 0,
  "Memoize" => 0,
  "Module::CoreList" => 0,
  "Module::Metadata" => 0,
  "Net::SSLeay" => "1.49",
  "Scalar::Util" => 0,
  "Storable" => 0,
  "Test::More" => "0.88",
  "Test::RequiresInternet" => 0,

dist.ini  view on Meta::CPAN

[PodSyntaxTests]
;[PodCoverageTests]
[Test::Portability]

; metadata
[Prereqs]
version = 0
Compress::Zlib = 0
CPAN::DistnameInfo = 0
HTTP::Tiny = 0.056
IO::Socket::SSL = 1.56
JSON::MaybeXS = 1.001000
List::Util = 0
Memoize = 0
Module::CoreList = 0
Module::Metadata = 0
Net::SSLeay = 1.49
Scalar::Util = 0
Storable = 0

[Prereqs / TestRequires]

lib/Dist/Surveyor/Inquiry.pm  view on Meta::CPAN

        my @args = ('-q', '-O', '-', '-U', $agent_string, '-T', 10, '--method', $method);
        push @args, '--header', "$_: $headers->{$_}" for keys %$headers;
        push @args, '--body-data', $content if defined $content;
        return IPC::System::Simple::capturex($wget, @args, $url);
    } elsif (defined $curl) {
        my @args = ('-s', '-S', '-L', '-A', $agent_string, '--connect-timeout', 10, '-X', $method);
        push @args, '-H', "$_: $headers->{$_}" for keys %$headers;
        push @args, '--data-raw', $content if defined $content;
        return IPC::System::Simple::capturex($curl, @args, $url);
    } else {
        die "None of IO::Socket::SSL, wget, or curl are available; cannot make HTTPS requests.";
    }
}

# caching via persistent memoize

my %memoize_cache;
my $locking_file;

=head1 CLASS METHODS