r53919 - in /branches/upstream/libcpan-uploader-perl/current: Changes LICENSE META.json META.yml Makefile.PL README dist.ini lib/CPAN/Uploader.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Mar 7 22:08:26 UTC 2010
Author: jawnsy-guest
Date: Sun Mar 7 22:08:17 2010
New Revision: 53919
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53919
Log:
[svn-upgrade] Integrating new upstream version, libcpan-uploader-perl (0.100660)
Modified:
branches/upstream/libcpan-uploader-perl/current/Changes
branches/upstream/libcpan-uploader-perl/current/LICENSE
branches/upstream/libcpan-uploader-perl/current/META.json
branches/upstream/libcpan-uploader-perl/current/META.yml
branches/upstream/libcpan-uploader-perl/current/Makefile.PL
branches/upstream/libcpan-uploader-perl/current/README
branches/upstream/libcpan-uploader-perl/current/dist.ini
branches/upstream/libcpan-uploader-perl/current/lib/CPAN/Uploader.pm
Modified: branches/upstream/libcpan-uploader-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/Changes?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/Changes (original)
+++ branches/upstream/libcpan-uploader-perl/current/Changes Sun Mar 7 22:08:17 2010
@@ -1,4 +1,7 @@
Revision history for CPAN-Uploader
+
+0.100660 2010-03-07 10:49:55 America/New_York
+ make the log and log_debug methods public
0.093390 2009-12-05 20:59:51 America/New_York
include docs on cpan-uploader command
Modified: branches/upstream/libcpan-uploader-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/LICENSE?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/LICENSE (original)
+++ branches/upstream/libcpan-uploader-perl/current/LICENSE Sun Mar 7 22:08:17 2010
@@ -1,4 +1,4 @@
-This software is copyright (c) 2009 by Ricardo SIGNES.
+This software is copyright (c) 2010 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.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2009 by Ricardo SIGNES.
+This software is Copyright (c) 2010 by Ricardo SIGNES.
This is free software, licensed under:
@@ -270,7 +270,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2009 by Ricardo SIGNES.
+This software is Copyright (c) 2010 by Ricardo SIGNES.
This is free software, licensed under:
Modified: branches/upstream/libcpan-uploader-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/META.json?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/META.json (original)
+++ branches/upstream/libcpan-uploader-perl/current/META.json Sun Mar 7 22:08:17 2010
@@ -1,28 +1,34 @@
{
"resources" : {
- "repository" : "http://github.com/rjbs/cpan-uploader"
+ "repository" : "git://git.codesimply.com/CPAN-Uploader.git"
},
"meta-spec" : {
"version" : 1.4,
"url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
},
- "generated_by" : "Dist::Zilla version 1.093380",
- "version" : "0.093390",
+ "generated_by" : "Dist::Zilla version 1.100660",
+ "version" : "0.100660",
"name" : "CPAN-Uploader",
"author" : [
"Ricardo SIGNES <rjbs at cpan.org>"
],
"license" : "perl",
+ "build_requires" : {},
"requires" : {
- "URI" : "0",
+ "File::Spec" : "0",
"Data::Dumper" : "0",
"HTTP::Status" : "0",
+ "Carp" : "0",
"HTTP::Request::Common" : "0",
+ "Test::More" : "0",
"LWP::UserAgent" : "0",
+ "Getopt::Long::Descriptive" : "0",
"File::Basename" : "0",
- "Getopt::Long::Descriptive" : "0",
"Term::ReadKey" : "0"
},
- "abstract" : "upload things to the CPAN"
+ "abstract" : "upload things to the CPAN",
+ "configure_requires" : {
+ "ExtUtils::MakeMaker" : "6.11"
+ }
}
Modified: branches/upstream/libcpan-uploader-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/META.yml?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/META.yml (original)
+++ branches/upstream/libcpan-uploader-perl/current/META.yml Sun Mar 7 22:08:17 2010
@@ -2,21 +2,26 @@
abstract: 'upload things to the CPAN'
author:
- 'Ricardo SIGNES <rjbs at cpan.org>'
-generated_by: 'Dist::Zilla version 1.093380'
+build_requires: {}
+configure_requires:
+ ExtUtils::MakeMaker: 6.11
+generated_by: 'Dist::Zilla version 1.100660'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: CPAN-Uploader
requires:
+ Carp: 0
Data::Dumper: 0
File::Basename: 0
+ File::Spec: 0
Getopt::Long::Descriptive: 0
HTTP::Request::Common: 0
HTTP::Status: 0
LWP::UserAgent: 0
Term::ReadKey: 0
- URI: 0
+ Test::More: 0
resources:
- repository: http://github.com/rjbs/cpan-uploader
-version: 0.093390
+ repository: git://git.codesimply.com/CPAN-Uploader.git
+version: 0.100660
Modified: branches/upstream/libcpan-uploader-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/Makefile.PL?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/Makefile.PL (original)
+++ branches/upstream/libcpan-uploader-perl/current/Makefile.PL Sun Mar 7 22:08:17 2010
@@ -4,26 +4,46 @@
-use ExtUtils::MakeMaker;
+use ExtUtils::MakeMaker 6.11;
-WriteMakefile(
- DISTNAME => 'CPAN-Uploader',
- NAME => 'CPAN::Uploader',
- AUTHOR => "Ricardo\ SIGNES\ \<rjbs\@cpan\.org\>",
- ABSTRACT => "upload\ things\ to\ the\ CPAN",
- VERSION => '0.093390',
- EXE_FILES => [ qw(bin/cpan-upload) ],
- (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
- PREREQ_PM => {
- "URI" => '0',
- "Data::Dumper" => '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'}
-);
+
+my %WriteMakefileArgs = (
+ 'test' => {
+ 'TESTS' => 't/*.t'
+ },
+ 'NAME' => 'CPAN::Uploader',
+ 'DISTNAME' => 'CPAN-Uploader',
+ 'CONFIGURE_REQUIRES' => {
+ 'ExtUtils::MakeMaker' => '6.11'
+ },
+ 'AUTHOR' => 'Ricardo SIGNES <rjbs at cpan.org>',
+ 'BUILD_REQUIRES' => {},
+ 'ABSTRACT' => 'upload things to the CPAN',
+ 'EXE_FILES' => [
+ 'bin/cpan-upload'
+ ],
+ 'VERSION' => '0.100660',
+ 'PREREQ_PM' => {
+ 'File::Spec' => '0',
+ 'Data::Dumper' => '0',
+ 'HTTP::Status' => '0',
+ 'Carp' => '0',
+ 'HTTP::Request::Common' => '0',
+ 'Test::More' => '0',
+ 'LWP::UserAgent' => '0',
+ 'Getopt::Long::Descriptive' => '0',
+ 'File::Basename' => '0',
+ 'Term::ReadKey' => '0'
+ },
+ 'LICENSE' => 'perl'
+ );
+
+
+delete $WriteMakefileArgs{LICENSE}
+ unless eval { ExtUtils::MakeMaker->VERSION(6.31) };
+
+WriteMakefile(%WriteMakefileArgs);
+
+
+
Modified: branches/upstream/libcpan-uploader-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/README?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/README (original)
+++ branches/upstream/libcpan-uploader-perl/current/README Sun Mar 7 22:08:17 2010
@@ -1,11 +1,11 @@
This archive contains the distribution CPAN-Uploader, version
-0.093390:
+0.100660:
upload things to the CPAN
-This software is copyright (c) 2009 by Ricardo SIGNES.
+This software is copyright (c) 2010 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.
Modified: branches/upstream/libcpan-uploader-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/dist.ini?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/dist.ini (original)
+++ branches/upstream/libcpan-uploader-perl/current/dist.ini Sun Mar 7 22:08:17 2010
@@ -3,14 +3,4 @@
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]
Modified: branches/upstream/libcpan-uploader-perl/current/lib/CPAN/Uploader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcpan-uploader-perl/current/lib/CPAN/Uploader.pm?rev=53919&op=diff
==============================================================================
--- branches/upstream/libcpan-uploader-perl/current/lib/CPAN/Uploader.pm (original)
+++ branches/upstream/libcpan-uploader-perl/current/lib/CPAN/Uploader.pm Sun Mar 7 22:08:17 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
package CPAN::Uploader;
-our $VERSION = '0.093390';
+our $VERSION = '0.100660';
# ABSTRACT: upload things to the CPAN
@@ -26,9 +26,9 @@
$self = $self->new($arg) if $arg;
- if($arg->{dry_run}) {
- $self->_log("By request, cowardly refusing to do anything at all.");
- $self->_log(
+ if ($arg->{dry_run}) {
+ $self->log("By request, cowardly refusing to do anything at all.");
+ $self->log(
"The following arguments would have been used to upload: \n"
. '$self: ' . Dumper($self)
. '$file: ' . Dumper($file)
@@ -42,7 +42,7 @@
my $self = shift;
my $file = shift;
- $self->_log("registering upload with PAUSE web server");
+ $self->log("registering upload with PAUSE web server");
my $agent = LWP::UserAgent->new;
$agent->agent($self . q{/} . $self->VERSION);
@@ -65,14 +65,14 @@
$request->authorization_basic($self->{user}, $self->{password});
- $self->_debug(
+ $self->log_debug(
"----- REQUEST BEGIN -----" .
$request->as_string .
"----- REQUEST END -------"
);
# Make the request to the PAUSE web server
- $self->_log("POSTing upload for $file");
+ $self->log("POSTing upload for $file");
my $response = $agent->request($request);
# So, how'd we do?
@@ -91,13 +91,13 @@
"\n Message: ", $response->message, "\n";
}
} else {
- $self->_debug(
+ $self->log_debug(
"Looks OK!",
"----- RESPONSE BEGIN -----",
$response->as_string,
"----- RESPONSE END -------"
);
- $self->_log("PAUSE add message sent ok [" . $response->code . "]");
+ $self->log("PAUSE add message sent ok [" . $response->code . "]");
}
}
@@ -110,15 +110,17 @@
bless $arg => $class;
}
-sub _log {
+
+sub log {
shift;
print "$_[0]\n"
}
-sub _debug {
+
+sub log_debug {
my ($self) = @_;
return unless $self->{debug};
- $self->_log($_[0]);
+ $self->log($_[0]);
}
1;
@@ -132,7 +134,7 @@
=head1 VERSION
-version 0.093390
+version 0.100660
=head1 METHODS
@@ -162,6 +164,19 @@
Valid arguments are the same as those to C<upload_file>.
+=head2 log
+
+ $uploader->log($message);
+
+This method logs the given string. The default behavior is to print it to the
+screen. The message should not end in a newline, as one will be added as
+needed.
+
+=head2 log_debug
+
+This method behaves like C<L</log>>, but only logs the message if the
+CPAN::Uploader is in debug mode.
+
=head1 WARNING
This is really, really not well tested or used yet. Give it a few weeks, at
@@ -180,7 +195,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2009 by Ricardo SIGNES.
+This software is copyright (c) 2010 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.
More information about the Pkg-perl-cvs-commits
mailing list