Alt-CPAN-Uploader-tinyua

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

   "prereqs" : {
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Alt::Assert" : "0",
            "Carp" : "0",
            "Data::Dumper" : "0",
            "File::Basename" : "0",
            "File::HomeDir" : "0",
            "File::Spec" : "0",
            "Getopt::Long::Descriptive" : "0.084",
            "HTTP::Tiny::Multipart" : "0",
            "HTTP::Tiny::UA" : "0",
            "IO::Socket::SSL" : "1.56",
            "Net::SSLeay" : "1.49",
            "Term::ReadKey" : "0",
            "URI" : "0",

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Alt-CPAN-Uploader-tinyua
no_index:
  directory:
    - lib/CPAN
    - bin
requires:
  Alt::Assert: '0'
  Carp: '0'
  Data::Dumper: '0'
  File::Basename: '0'
  File::HomeDir: '0'
  File::Spec: '0'
  Getopt::Long::Descriptive: '0.084'
  HTTP::Tiny::Multipart: '0'
  HTTP::Tiny::UA: '0'
  IO::Socket::SSL: '1.56'
  Net::SSLeay: '1.49'
  Term::ReadKey: '0'
  URI: '0'

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "Alt-CPAN-Uploader-tinyua",
  "EXE_FILES" => [
    "bin/cpan-upload"
  ],
  "LICENSE" => "perl",
  "NAME" => "Alt::CPAN::Uploader::tinyua",
  "PREREQ_PM" => {
    "Alt::Assert" => 0,
    "Carp" => 0,
    "Data::Dumper" => 0,
    "File::Basename" => 0,
    "File::HomeDir" => 0,
    "File::Spec" => 0,
    "Getopt::Long::Descriptive" => "0.084",
    "HTTP::Tiny::Multipart" => 0,
    "HTTP::Tiny::UA" => 0,
    "IO::Socket::SSL" => "1.56",
    "Net::SSLeay" => "1.49",
    "Term::ReadKey" => 0,
    "URI" => 0,

Makefile.PL  view on Meta::CPAN

  "VERSION" => "0.000001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Alt::Assert" => 0,
  "Carp" => 0,
  "Data::Dumper" => 0,
  "ExtUtils::MakeMaker" => 0,
  "File::Basename" => 0,
  "File::HomeDir" => 0,
  "File::Spec" => 0,
  "Getopt::Long::Descriptive" => "0.084",
  "HTTP::Tiny::Multipart" => 0,
  "HTTP::Tiny::UA" => 0,
  "IO::Socket::SSL" => "1.56",
  "Net::SSLeay" => "1.49",
  "Term::ReadKey" => 0,

lib/CPAN/Uploader.pm  view on Meta::CPAN

  Carp::confess(q{don't supply %arg when calling upload_file on an object})
    if $arg and ref $self;

  # class call with no args is no good
  Carp::confess(q{need to supply %arg when calling upload_file from the class})
    if not (ref $self) and not $arg;

  $self = $self->new($arg) if $arg;

  if ($arg->{dry_run}) {
    require Data::Dumper;
    $self->log("By request, cowardly refusing to do anything at all.");
    $self->log(
      "The following arguments would have been used to upload: \n"
      . '$self: ' . Data::Dumper::Dumper($self)
      . '$file: ' . Data::Dumper::Dumper($file)
    );
  } else {
    $self->_upload($file);
  }
}

sub _ua_string {
  my ($self) = @_;
  my $class   = ref $self || $self;
  my $version = defined $class->VERSION ? $class->VERSION : 'dev';