r46296 - in /branches/upstream/libmoosex-getopt-perl/current: ChangeLog MANIFEST META.yml inc/Module/Install/AuthorRequires.pm inc/Module/Install/AutoManifest.pm lib/MooseX/Getopt.pm t/103_uc_bug.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Oct 24 03:59:57 UTC 2009
Author: jawnsy-guest
Date: Sat Oct 24 03:59:51 2009
New Revision: 46296
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46296
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-getopt-perl (0.24)
Added:
branches/upstream/libmoosex-getopt-perl/current/t/103_uc_bug.t
Removed:
branches/upstream/libmoosex-getopt-perl/current/inc/Module/Install/AutoManifest.pm
Modified:
branches/upstream/libmoosex-getopt-perl/current/ChangeLog
branches/upstream/libmoosex-getopt-perl/current/MANIFEST
branches/upstream/libmoosex-getopt-perl/current/META.yml
branches/upstream/libmoosex-getopt-perl/current/inc/Module/Install/AuthorRequires.pm
branches/upstream/libmoosex-getopt-perl/current/lib/MooseX/Getopt.pm
Modified: branches/upstream/libmoosex-getopt-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-getopt-perl/current/ChangeLog?rev=46296&op=diff
==============================================================================
--- branches/upstream/libmoosex-getopt-perl/current/ChangeLog (original)
+++ branches/upstream/libmoosex-getopt-perl/current/ChangeLog Sat Oct 24 03:59:51 2009
@@ -1,8 +1,12 @@
Revision history for Perl extension MooseX-Getopt
+
+0.24 Fri. Oct 23 2009
+ * MooseX::Getopt
+ - Fix bug with mixed case attribute names (MAROS)
0.23 Fri. Oct 02 2009
* MooseX::Getopt
- - Allow the config file to be a code ref which is called to return
+ - Allow the config file to return a code ref which is called to return
the config file location (Gordon Irving)
0.22 Sat. Sept 05 2009
Modified: branches/upstream/libmoosex-getopt-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-getopt-perl/current/MANIFEST?rev=46296&op=diff
==============================================================================
--- branches/upstream/libmoosex-getopt-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-getopt-perl/current/MANIFEST Sat Oct 24 03:59:51 2009
@@ -2,7 +2,6 @@
inc/Module/Install.pm
inc/Module/Install/AuthorRequires.pm
inc/Module/Install/AuthorTests.pm
-inc/Module/Install/AutoManifest.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
@@ -38,5 +37,6 @@
t/100_gld_default_bug.t
t/101_argv_bug.t
t/102_basic_basic.t
+t/103_uc_bug.t
t/author/pod.t
t/author/pod_coverage.t
Modified: branches/upstream/libmoosex-getopt-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-getopt-perl/current/META.yml?rev=46296&op=diff
==============================================================================
--- branches/upstream/libmoosex-getopt-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-getopt-perl/current/META.yml Sat Oct 24 03:59:51 2009
@@ -10,7 +10,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.910'
+generated_by: 'Module::Install version 0.91'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,4 +27,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/MooseX-Getopt.git
-version: 0.23
+version: 0.24
Modified: branches/upstream/libmoosex-getopt-perl/current/inc/Module/Install/AuthorRequires.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-getopt-perl/current/inc/Module/Install/AuthorRequires.pm?rev=46296&op=diff
==============================================================================
--- branches/upstream/libmoosex-getopt-perl/current/inc/Module/Install/AuthorRequires.pm (original)
+++ branches/upstream/libmoosex-getopt-perl/current/inc/Module/Install/AuthorRequires.pm Sat Oct 24 03:59:51 2009
@@ -4,13 +4,14 @@
package Module::Install::AuthorRequires;
-use base 'Module::Install::Base';
-
# cargo cult
BEGIN {
- our $VERSION = '0.02';
+ our $VERSION = '0.01';
our $ISCORE = 1;
+# our @ISA = qw{Module::Install::Base};
}
+
+use base qw/Module::Install::Base/;
sub author_requires {
my $self = shift;
@@ -35,4 +36,4 @@
__END__
-#line 92
+#line 93
Modified: branches/upstream/libmoosex-getopt-perl/current/lib/MooseX/Getopt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-getopt-perl/current/lib/MooseX/Getopt.pm?rev=46296&op=diff
==============================================================================
--- branches/upstream/libmoosex-getopt-perl/current/lib/MooseX/Getopt.pm (original)
+++ branches/upstream/libmoosex-getopt-perl/current/lib/MooseX/Getopt.pm Sat Oct 24 03:59:51 2009
@@ -11,7 +11,7 @@
use Getopt::Long (); # GLD uses it anyway, doesn't hurt
use constant HAVE_GLD => not not eval { require Getopt::Long::Descriptive };
-our $VERSION = '0.23';
+our $VERSION = '0.24';
our $AUTHORITY = 'cpan:STEVAN';
has ARGV => (is => 'rw', isa => 'ArrayRef', metaclass => "NoGetopt");
@@ -51,7 +51,7 @@
}
my $constructor_params = ( @params == 1 ? $params[0] : {@params} );
-
+
Carp::croak("Single parameters to new_with_options() must be a HASH ref")
unless ref($constructor_params) eq 'HASH';
@@ -133,7 +133,7 @@
foreach my $opt ( @{ $params{options} } ) {
push @options, $opt->{opt_string};
- my $identifier = $opt->{name};
+ my $identifier = lc($opt->{name});
$identifier =~ s/\W/_/g; # Getopt::Long does this to all option names
$name_to_init_arg{$identifier} = $opt->{init_arg};
@@ -165,7 +165,7 @@
},
];
- my $identifier = $opt->{name};
+ my $identifier = lc($opt->{name});
$identifier =~ s/\W/_/g; # Getopt::Long does this to all option names
$name_to_init_arg{$identifier} = $opt->{init_arg};
@@ -435,7 +435,7 @@
params from the command line (possibly overriding those in C<%params>)
and then return a newly constructed object.
-The special parameter C<argv>, if specified should point to an array
+The special parameter C<argv>, if specified should point to an array
reference with an array to use instead of C<@ARGV>.
If L<Getopt::Long/GetOptions> fails (due to invalid arguments),
Added: branches/upstream/libmoosex-getopt-perl/current/t/103_uc_bug.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-getopt-perl/current/t/103_uc_bug.t?rev=46296&op=file
==============================================================================
--- branches/upstream/libmoosex-getopt-perl/current/t/103_uc_bug.t (added)
+++ branches/upstream/libmoosex-getopt-perl/current/t/103_uc_bug.t Sat Oct 24 03:59:51 2009
@@ -1,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+{
+ package App;
+ use Moose;
+ with qw(MooseX::Getopt);
+
+ has 'TrackingNumber' => (
+ is => 'rw',
+ isa => 'Str',
+ );
+
+ has 'otherparam' => (
+ is => 'rw',
+ isa => 'Str',
+ );
+}
+
+{
+ local @ARGV = ('--TrackingNumber','1Z1234567812345670','--otherparam','foo');
+
+ my $app = App->new_with_options;
+ isa_ok($app, 'App');
+ is($app->TrackingNumber, '1Z1234567812345670', '... TrackingNumber is as expected');
+ is($app->otherparam, 'foo', '... otherparam is as expected');
+}
More information about the Pkg-perl-cvs-commits
mailing list