@@ -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