The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
Changes 03
MANIFEST 02
META.json 79
META.yml 022
Makefile.PL 611
README 11
bin/cpan-upload 010
dist.ini 016
lib/CPAN/Uploader.pm 1716
9 files changed (This is a version diff) 3190
@@ -1,5 +1,8 @@
 Revision history for CPAN-Uploader
 
+0.093330  2009-11-29 17:47:16 America/New_York
+          prompt for password if none is in config (patch from David Caldwell)
+          re-release to include a META.yml for cpandeps
 
 0.091270  2009-05-07
           refactor internals, improve options handling, --dry-run (sungo)
@@ -2,9 +2,11 @@ Changes
 LICENSE
 MANIFEST
 META.json
+META.yml
 Makefile.PL
 README
 bin/cpan-upload
+dist.ini
 lib/CPAN/Uploader.pm
 t/00-load.t
 t/release-pod-coverage.t
@@ -1,26 +1,28 @@
 {
    "resources" : {
-      "repository" : "http://github.com/rjbs/cpan-uploader/tree"
+      "repository" : "http://github.com/rjbs/cpan-uploader"
    },
    "meta-spec" : {
       "version" : 1.4,
       "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
    },
-   "generated_by" : "Dist::Zilla::Plugin::MetaJSON version 1.092310",
-   "version" : "0.092340",
+   "generated_by" : "Dist::Zilla version 1.093290",
+   "version" : "0.093330",
    "name" : "CPAN-Uploader",
    "author" : [
       "Ricardo SIGNES <rjbs@cpan.org>"
    ],
    "license" : "perl",
    "requires" : {
-      "LWP::UserAgent" : "0",
       "URI" : "0",
       "Data::Dumper" : "0",
-      "Getopt::Long::Descriptive" : "0",
-      "File::Basename" : "0",
       "HTTP::Status" : "0",
-      "HTTP::Request::Common" : "0"
+      "HTTP::Request::Common" : "0",
+      "LWP::UserAgent" : "0",
+      "File::Basename" : "0",
+      "Getopt::Long::Descriptive" : "0",
+      "Term::ReadKey" : "0"
    },
    "abstract" : "upload things to the CPAN"
 }
+
@@ -0,0 +1,22 @@
+---
+abstract: 'upload things to the CPAN'
+author:
+  - 'Ricardo SIGNES <rjbs@cpan.org>'
+generated_by: 'Dist::Zilla version 1.093290'
+license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: CPAN-Uploader
+requires:
+  Data::Dumper: 0
+  File::Basename: 0
+  Getopt::Long::Descriptive: 0
+  HTTP::Request::Common: 0
+  HTTP::Status: 0
+  LWP::UserAgent: 0
+  Term::ReadKey: 0
+  URI: 0
+resources:
+  repository: http://github.com/rjbs/cpan-uploader
+version: 0.093330
@@ -2,23 +2,28 @@
 use strict;
 use warnings;
 
+
+
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
   DISTNAME  => 'CPAN-Uploader',
   NAME      => 'CPAN::Uploader',
-  AUTHOR    => 'Ricardo\ SIGNES\ \<rjbs\@cpan\.org\>',
-  ABSTRACT  => 'upload\ things\ to\ the\ CPAN',
-  VERSION   => '0.092340',
+  AUTHOR    => "Ricardo\ SIGNES\ \<rjbs\@cpan\.org\>",
+  ABSTRACT  => "upload\ things\ to\ the\ CPAN",
+  VERSION   => '0.093330',
   EXE_FILES => [ qw(bin/cpan-upload) ],
   (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
   PREREQ_PM    => {
-    "LWP::UserAgent" => '0',
     "URI" => '0',
     "Data::Dumper" => '0',
-    "Getopt::Long::Descriptive" => '0',
-    "File::Basename" => '0',
     "HTTP::Status" => '0',
     "HTTP::Request::Common" => '0',
+    "LWP::UserAgent" => '0',
+    "File::Basename" => '0',
+    "Getopt::Long::Descriptive" => '0',
+    "Term::ReadKey" => '0',
   },
+  test => {TESTS => 't/*.t'}
 );
+
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution CPAN-Uploader, version
-0.092340:
+0.093330:
 
   upload things to the CPAN
 
@@ -56,6 +56,16 @@ $arg{subdir} = $opts->{directory} if defined $opts->{directory};
 $arg{ $_ } = $opts->{ $_ }
   for grep { defined $opts->{ $_ } } qw(dry_run user password http-proxy);
 
+if (!$arg{password}) {
+  require Term::ReadKey;
+  local $| = 1;
+  print "PAUSE Password: ";
+  Term::ReadKey::ReadMode('noecho');
+  chop($arg{password} = <STDIN>);
+  Term::ReadKey::ReadMode('restore');
+  print "\n";
+}
+
 CPAN::Uploader->upload_file(
   $file,
   \%arg,
@@ -0,0 +1,16 @@
+name    = CPAN-Uploader
+author  = Ricardo SIGNES <rjbs@cpan.org>
+license = Perl_5
+copyright_holder = Ricardo SIGNES
+
+[Prereq]
+Data::Dumper   = 0
+File::Basename = 0
+HTTP::Status   = 0
+LWP::UserAgent = 0
+URI            = 0
+Getopt::Long::Descriptive = 0
+HTTP::Request::Common     = 0
+Term::ReadKey  = 0
+
+[@RJBS]
@@ -1,7 +1,8 @@
 use strict;
 use warnings;
 package CPAN::Uploader;
-our $VERSION = '0.092340';
+our $VERSION = '0.093330';
+
 
 # ABSTRACT: upload things to the CPAN
 
@@ -125,7 +126,6 @@ sub _debug {
 1;
 
 __END__
-
 =pod
 
 =head1 NAME
@@ -134,19 +134,7 @@ CPAN::Uploader - upload things to the CPAN
 
 =head1 VERSION
 
-version 0.092340
-
-=head1 WARNING
-
-  This is really, really not well tested or used yet.  Give it a few weeks, at
-  least.  -- rjbs, 2008-06-06
-
-=head1 ORIGIN
-
-This code is mostly derived from C<cpan-upload-http> by Brad Fitzpatrick, which
-in turn was based on C<cpan-upload> by Neil Bowers.  I (I<rjbs>) didn't want to
-have to use a C<system> call to run either of those, so I refactored the code
-into this module.
+version 0.093330
 
 =head1 METHODS
 
@@ -176,6 +164,18 @@ this method.
 
 Valid arguments are the same as those to C<upload_file>.
 
+=head1 WARNING
+
+  This is really, really not well tested or used yet.  Give it a few weeks, at
+  least.  -- rjbs, 2008-06-06
+
+=head1 ORIGIN
+
+This code is mostly derived from C<cpan-upload-http> by Brad Fitzpatrick, which
+in turn was based on C<cpan-upload> by Neil Bowers.  I (I<rjbs>) didn't want to
+have to use a C<system> call to run either of those, so I refactored the code
+into this module.
+
 =head1 AUTHOR
 
   Ricardo SIGNES <rjbs@cpan.org>
@@ -187,6 +187,5 @@ This software is copyright (c) 2009 by Ricardo SIGNES.
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
 
-=cut 
-
+=cut