r60125 - in /trunk/libmoosex-getopt-perl: ./ debian/ debian/patches/ lib/MooseX/ lib/MooseX/Getopt/ lib/MooseX/Getopt/Meta/ lib/MooseX/Getopt/Meta/Attribute/ lib/MooseX/Getopt/Meta/Attribute/Trait/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Wed Jul 7 11:45:44 UTC 2010
Author: ansgar-guest
Date: Wed Jul 7 11:45:22 2010
New Revision: 60125
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60125
Log:
* New upstream release.
* Add build-dep on libtest-warn-perl (>= 0.21).
* Bump Standards-Version to 3.9.0 (no changes).
Added:
trunk/libmoosex-getopt-perl/t/107_no_auto_help.t
- copied unchanged from r60123, branches/upstream/libmoosex-getopt-perl/current/t/107_no_auto_help.t
trunk/libmoosex-getopt-perl/t/108_usage_attr.t
- copied unchanged from r60123, branches/upstream/libmoosex-getopt-perl/current/t/108_usage_attr.t
trunk/libmoosex-getopt-perl/t/109_help_flag.t
- copied unchanged from r60123, branches/upstream/libmoosex-getopt-perl/current/t/109_help_flag.t
trunk/libmoosex-getopt-perl/t/110_sort_usage_by_attr_order.t
- copied unchanged from r60123, branches/upstream/libmoosex-getopt-perl/current/t/110_sort_usage_by_attr_order.t
Modified:
trunk/libmoosex-getopt-perl/ChangeLog
trunk/libmoosex-getopt-perl/MANIFEST
trunk/libmoosex-getopt-perl/META.json
trunk/libmoosex-getopt-perl/META.yml
trunk/libmoosex-getopt-perl/Makefile.PL
trunk/libmoosex-getopt-perl/README
trunk/libmoosex-getopt-perl/debian/changelog
trunk/libmoosex-getopt-perl/debian/control
trunk/libmoosex-getopt-perl/debian/patches/fix-pod-charset.patch
trunk/libmoosex-getopt-perl/dist.ini
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Basic.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Dashes.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/GLD.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/OptionTypeMap.pm
trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Strict.pm
trunk/libmoosex-getopt-perl/t/104_override_usage.t
Modified: trunk/libmoosex-getopt-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/ChangeLog?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/ChangeLog (original)
+++ trunk/libmoosex-getopt-perl/ChangeLog Wed Jul 7 11:45:22 2010
@@ -1,4 +1,28 @@
Revision history for Perl extension MooseX-Getopt
+
+0.31 Wed 7 Jul 2010
+ * Fix issue causing tests to fail if MooseX::SimpleConfig isn't installed.
+
+0.30 Tue 6 Jul 2010
+ * MooseX::Getopt::Basic
+ - uses attribute insertion order when determining the order in which
+ options are documented in the usage (e.g. in $obj->usage->text). (Karen
+ Etheridge)
+
+ * MooseX::Getopt::Basic
+ - store the usage object to the usage attr (RT#58715)
+ - properly checks whether the *option* --help, --usage, or --? were used,
+ rather than the attribute 'help', 'usage' or '?' were set
+ * MooseX::Getopt::GLD
+ - add the usage attribute for storing the Getopt::Long::Descriptive::Usage
+ object, and the help attribute for storing --help, --usage and --? state
+ (RT#47865, RT#56783, RT#52474). (Karen Etheridge)
+
+ * MooseX::Getopt::Basic
+ - Disable auto_help config in Getopt::Long, to avoid calling into
+ pod2usage when the --help option is used while MooseX::ConfigFromFile
+ is in use (the intent is just to fetch the value of the configfile
+ option) (RT#57683). (Karen Etheridge)
0.29 Tue. Jun 15 2010
* Fix repository metadata. Thanks Robert Bohne for noticing!
Modified: trunk/libmoosex-getopt-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/MANIFEST?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/MANIFEST (original)
+++ trunk/libmoosex-getopt-perl/MANIFEST Wed Jul 7 11:45:22 2010
@@ -34,6 +34,10 @@
t/104_override_usage.t
t/105_uc_bug_more.t
t/106_no_ignore_case.t
+t/107_no_auto_help.t
+t/108_usage_attr.t
+t/109_help_flag.t
+t/110_sort_usage_by_attr_order.t
t/release-eol.t
t/release-no-tabs.t
t/release-pod-coverage.t
Modified: trunk/libmoosex-getopt-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/META.json?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/META.json (original)
+++ trunk/libmoosex-getopt-perl/META.json Wed Jul 7 11:45:22 2010
@@ -13,7 +13,7 @@
"Chris Prather <perigrin at cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101600",
+ "generated_by" : "Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101610",
"license" : [
"perl_5"
],
@@ -38,7 +38,8 @@
"test" : {
"requires" : {
"Test::Exception" : "0.21",
- "Test::More" : "0.88"
+ "Test::More" : "0.88",
+ "Test::Warn" : "0.21"
}
}
},
@@ -55,7 +56,7 @@
"web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/MooseX-Getopt.git;a=summary"
}
},
- "version" : "0.29",
+ "version" : "0.31",
"x_Dist_Zilla" : {
"plugins" : [
{
@@ -166,7 +167,7 @@
{
"class" : "Dist::Zilla::Plugin::Authority",
"name" : "@FLORA/Authority",
- "version" : "1.000"
+ "version" : "0.01"
},
{
"class" : "Dist::Zilla::Plugin::EOLTests",
@@ -176,7 +177,7 @@
{
"class" : "Dist::Zilla::Plugin::PodWeaver",
"name" : "@FLORA/PodWeaver",
- "version" : "3.101530"
+ "version" : "3.101640"
},
{
"class" : "Dist::Zilla::Plugin::Prereq",
Modified: trunk/libmoosex-getopt-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/META.yml?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/META.yml (original)
+++ trunk/libmoosex-getopt-perl/META.yml Wed Jul 7 11:45:22 2010
@@ -14,10 +14,11 @@
build_requires:
Test::Exception: 0.21
Test::More: 0.88
+ Test::Warn: 0.21
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101600'
+generated_by: 'Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101610'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -31,7 +32,7 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Getopt
homepage: http://search.cpan.org/dist/MooseX-Getopt
repository: git://git.moose.perl.org/MooseX-Getopt.git
-version: 0.29
+version: 0.31
x_Dist_Zilla:
plugins:
-
@@ -121,7 +122,7 @@
-
class: Dist::Zilla::Plugin::Authority
name: '@FLORA/Authority'
- version: 1.000
+ version: 0.01
-
class: Dist::Zilla::Plugin::EOLTests
name: '@FLORA/EOLTests'
@@ -129,7 +130,7 @@
-
class: Dist::Zilla::Plugin::PodWeaver
name: '@FLORA/PodWeaver'
- version: 3.101530
+ version: 3.101640
-
class: Dist::Zilla::Plugin::Prereq
config:
Modified: trunk/libmoosex-getopt-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/Makefile.PL?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/Makefile.PL (original)
+++ trunk/libmoosex-getopt-perl/Makefile.PL Wed Jul 7 11:45:22 2010
@@ -13,7 +13,8 @@
'AUTHOR' => 'Stevan Little <stevan at iinteractive.com>, Brandon L. Black <blblack at gmail.com>, Yuval Kogman <nothingmuch at woobling.org>, Ryan D Johnson <ryan at innerfence.com>, Drew Taylor <drew at drewtaylor.com>, Tomas Doran <bobtfish at bobtfish.net>, Florian Ragwitz <rafl at debian.org>, Dagfinn Ilmari MannsÃ¥ker <ilmari at ilmari.org>, Ãvar Arnfjörð Bjarmason <avar at cpan.org>, Chris Prather <perigrin at cpan.org>',
'BUILD_REQUIRES' => {
'Test::Exception' => '0.21',
- 'Test::More' => '0.88'
+ 'Test::More' => '0.88',
+ 'Test::Warn' => '0.21'
},
'CONFIGURE_REQUIRES' => {
'ExtUtils::MakeMaker' => '6.31'
@@ -27,7 +28,7 @@
'Getopt::Long::Descriptive' => '0.081',
'Moose' => '0.56'
},
- 'VERSION' => '0.29',
+ 'VERSION' => '0.31',
'test' => {
'TESTS' => 't/*.t'
}
Modified: trunk/libmoosex-getopt-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/README?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/README (original)
+++ trunk/libmoosex-getopt-perl/README Wed Jul 7 11:45:22 2010
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-Getopt,
-version 0.29:
+version 0.31:
A Moose role for processing command line options
Modified: trunk/libmoosex-getopt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/debian/changelog?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/debian/changelog (original)
+++ trunk/libmoosex-getopt-perl/debian/changelog Wed Jul 7 11:45:22 2010
@@ -1,9 +1,10 @@
-libmoosex-getopt-perl (0.29-1) UNRELEASED; urgency=low
-
- IGNORE-VERSION: 0.29-1
- Only updates repository metadata.
-
- -- Ansgar Burchardt <ansgar at 43-1.org> Tue, 15 Jun 2010 23:09:31 +0900
+libmoosex-getopt-perl (0.31-1) unstable; urgency=low
+
+ * New upstream release.
+ * Add build-dep on libtest-warn-perl (>= 0.21).
+ * Bump Standards-Version to 3.9.0 (no changes).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Wed, 07 Jul 2010 20:42:53 +0900
libmoosex-getopt-perl (0.28-1) unstable; urgency=low
Modified: trunk/libmoosex-getopt-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/debian/control?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/debian/control (original)
+++ trunk/libmoosex-getopt-perl/debian/control Wed Jul 7 11:45:22 2010
@@ -4,13 +4,13 @@
Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl, libgetopt-long-descriptive-perl (>= 0.081),
libmoose-perl (>= 0.56), libtest-exception-perl, libclass-mop-perl (>= 0.49),
- perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
+ perl (>= 5.10.1) | libtest-simple-perl (>= 0.88), libtest-warn-perl (>= 0.21)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Damyan Ivanov <dmn at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
Krzysztof Krzyżaniak (eloy) <eloy at debian.org>, Niko Tyni <ntyni at debian.org>,
gregor herrmann <gregoa at debian.org>, Ryan Niebur <ryan at debian.org>,
Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.0
Homepage: http://search.cpan.org/dist/MooseX-Getopt/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmoosex-getopt-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmoosex-getopt-perl/
Modified: trunk/libmoosex-getopt-perl/debian/patches/fix-pod-charset.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/debian/patches/fix-pod-charset.patch?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/debian/patches/fix-pod-charset.patch (original)
+++ trunk/libmoosex-getopt-perl/debian/patches/fix-pod-charset.patch Wed Jul 7 11:45:22 2010
@@ -18,7 +18,7 @@
--- libmoosex-getopt-perl.orig/lib/MooseX/Getopt.pm
+++ libmoosex-getopt-perl/lib/MooseX/Getopt.pm
-@@ -277,7 +277,7 @@
+@@ -288,7 +288,7 @@
=item *
@@ -29,7 +29,7 @@
--- libmoosex-getopt-perl.orig/lib/MooseX/Getopt/Basic.pm
+++ libmoosex-getopt-perl/lib/MooseX/Getopt/Basic.pm
-@@ -313,7 +313,7 @@
+@@ -317,7 +317,7 @@
=item *
@@ -40,7 +40,7 @@
--- libmoosex-getopt-perl.orig/lib/MooseX/Getopt/GLD.pm
+++ libmoosex-getopt-perl/lib/MooseX/Getopt/GLD.pm
-@@ -132,7 +132,7 @@
+@@ -146,7 +146,7 @@
=item *
Modified: trunk/libmoosex-getopt-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/dist.ini?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/dist.ini (original)
+++ trunk/libmoosex-getopt-perl/dist.ini Wed Jul 7 11:45:22 2010
@@ -1,5 +1,5 @@
name = MooseX-Getopt
-version = 0.29
+version = 0.31
author = Stevan Little <stevan at iinteractive.com>
author = Brandon L. Black <blblack at gmail.com>
author = Yuval Kogman <nothingmuch at woobling.org>
@@ -26,4 +26,5 @@
[Prereq / TestRequires]
Test::Exception = 0.21
+Test::Warn = 0.21
Test::More = 0.88
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::VERSION = '0.29';
+ $MooseX::Getopt::VERSION = '0.31';
}
# ABSTRACT: A Moose role for processing command line options
@@ -214,7 +214,8 @@
If L<Getopt::Long::Descriptive> is installed and any of the following
command line params are passed, the program will exit with usage
-information. You can add descriptions for each option by including a
+information (and the option's state will be stored in the help_flag
+attribute). You can add descriptions for each option by including a
B<documentation> option for each attribute to document.
--?
@@ -222,7 +223,7 @@
--usage
If you have L<Getopt::Long::Descriptive> the C<usage> param is also passed to
-C<new>.
+C<new> as the usage option.
=head2 B<ARGV>
@@ -235,6 +236,16 @@
L<Getopt::Long> did not parse. Note that the real C<@ARGV> is left
un-mangled.
+=head2 B<usage>
+
+This accessor contains the L<Getopt::Long::Descriptive::Usage> object (if
+L<Getopt::Long::Descriptive> is used).
+
+=head2 B<help_flag>
+
+This accessor contains the boolean state of the --help, --usage and --?
+options (true if any of these options were passed on the command line).
+
=head2 B<meta>
This returns the role meta object.
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Basic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Basic.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Basic.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Basic.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Basic::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Basic::VERSION = '0.29';
+ $MooseX::Getopt::Basic::VERSION = '0.31';
}
# ABSTRACT: MooseX::Getopt::Basic - role to implement the Getopt::Long functionality
@@ -26,8 +26,10 @@
if($class->meta->does_role('MooseX::ConfigFromFile')) {
local @ARGV = @ARGV;
+ # just get the configfile arg now; the rest of the args will be
+ # fetched later
my $configfile;
- my $opt_parser = Getopt::Long::Parser->new( config => [ qw( pass_through ) ] );
+ my $opt_parser = Getopt::Long::Parser->new( config => [ qw( no_auto_help pass_through ) ] );
$opt_parser->getoptions( "configfile=s" => \$configfile );
if(!defined $configfile) {
@@ -67,7 +69,7 @@
my $params = $config_from_file ? { %$config_from_file, %{$processed{params}} } : $processed{params};
# did the user request usage information?
- if ( $processed{usage} && ($params->{'?'} or $params->{help} or $params->{usage}) )
+ if ( $processed{usage} and $params->{help_flag} )
{
$class->_getopt_full_usage($processed{usage});
}
@@ -75,6 +77,7 @@
$class->new(
ARGV => $processed{argv_copy},
extra_argv => $processed{argv},
+ ( $processed{usage} ? ( usage => $processed{usage} ) : () ),
%$constructor_params, # explicit params to ->new
%$params, # params from CLI
);
@@ -161,6 +164,7 @@
sub _compute_getopt_attrs {
my $class = shift;
+ sort { $a->insertion_order <=> $b->insertion_order }
grep {
$_->does("MooseX::Getopt::Meta::Attribute::Trait")
or
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Dashes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Dashes.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Dashes.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Dashes.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Dashes::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Dashes::VERSION = '0.29';
+ $MooseX::Getopt::Dashes::VERSION = '0.31';
}
# ABSTRACT: convert underscores in attribute names to dashes
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/GLD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/GLD.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/GLD.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/GLD.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::GLD::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::GLD::VERSION = '0.29';
+ $MooseX::Getopt::GLD::VERSION = '0.31';
}
# ABSTRACT: A Moose role for processing command line options with Getopt::Long::Descriptive
@@ -12,6 +12,20 @@
use Getopt::Long::Descriptive 0.081;
with 'MooseX::Getopt::Basic';
+
+has usage => (
+ is => 'rw', isa => 'Getopt::Long::Descriptive::Usage',
+ traits => ['NoGetopt'],
+);
+
+# captures the options: --help --usage --?
+has help_flag => (
+ is => 'ro', isa => 'Bool',
+ traits => ['Getopt'],
+ cmd_flag => 'help',
+ cmd_aliases => [ qw(usage ?) ],
+ documentation => 'Prints this usage information.',
+);
around _getopt_spec => sub {
shift;
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Meta::Attribute::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Meta::Attribute::VERSION = '0.29';
+ $MooseX::Getopt::Meta::Attribute::VERSION = '0.31';
}
# ABSTRACT: Optional meta attribute for custom option names
@@ -22,7 +22,7 @@
$Moose::Meta::Attribute::Custom::Getopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $Moose::Meta::Attribute::Custom::Getopt::VERSION = '0.29';
+ $Moose::Meta::Attribute::Custom::Getopt::VERSION = '0.31';
}
sub register_implementation { 'MooseX::Getopt::Meta::Attribute' }
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Meta::Attribute::NoGetopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Meta::Attribute::NoGetopt::VERSION = '0.29';
+ $MooseX::Getopt::Meta::Attribute::NoGetopt::VERSION = '0.31';
}
# ABSTRACT: Optional meta attribute for ignoring params
@@ -21,7 +21,7 @@
$Moose::Meta::Attribute::Custom::NoGetopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $Moose::Meta::Attribute::Custom::NoGetopt::VERSION = '0.29';
+ $Moose::Meta::Attribute::Custom::NoGetopt::VERSION = '0.31';
}
sub register_implementation { 'MooseX::Getopt::Meta::Attribute::NoGetopt' }
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Meta::Attribute::Trait::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Meta::Attribute::Trait::VERSION = '0.29';
+ $MooseX::Getopt::Meta::Attribute::Trait::VERSION = '0.31';
}
# ABSTRACT: Optional meta attribute trait for custom option names
@@ -41,7 +41,7 @@
$Moose::Meta::Attribute::Custom::Trait::Getopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $Moose::Meta::Attribute::Custom::Trait::Getopt::VERSION = '0.29';
+ $Moose::Meta::Attribute::Custom::Trait::Getopt::VERSION = '0.31';
}
sub register_implementation { 'MooseX::Getopt::Meta::Attribute::Trait' }
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Meta::Attribute::Trait::NoGetopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Meta::Attribute::Trait::NoGetopt::VERSION = '0.29';
+ $MooseX::Getopt::Meta::Attribute::Trait::NoGetopt::VERSION = '0.31';
}
# ABSTRACT: Optional meta attribute trait for ignoring params
@@ -17,7 +17,7 @@
$Moose::Meta::Attribute::Custom::Trait::NoGetopt::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $Moose::Meta::Attribute::Custom::Trait::NoGetopt::VERSION = '0.29';
+ $Moose::Meta::Attribute::Custom::Trait::NoGetopt::VERSION = '0.31';
}
sub register_implementation { 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt' }
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/OptionTypeMap.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/OptionTypeMap.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/OptionTypeMap.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/OptionTypeMap.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::OptionTypeMap::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::OptionTypeMap::VERSION = '0.29';
+ $MooseX::Getopt::OptionTypeMap::VERSION = '0.31';
}
# ABSTRACT: Storage for the option to type mappings
Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Strict.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Strict.pm?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Strict.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt/Strict.pm Wed Jul 7 11:45:22 2010
@@ -3,7 +3,7 @@
$MooseX::Getopt::Strict::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
- $MooseX::Getopt::Strict::VERSION = '0.29';
+ $MooseX::Getopt::Strict::VERSION = '0.31';
}
# ABSTRACT: only make options for attrs with the Getopt metaclass
Modified: trunk/libmoosex-getopt-perl/t/104_override_usage.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-getopt-perl/t/104_override_usage.t?rev=60125&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/t/104_override_usage.t (original)
+++ trunk/libmoosex-getopt-perl/t/104_override_usage.t Wed Jul 7 11:45:22 2010
@@ -10,7 +10,6 @@
with 'MooseX::Getopt';
has foo => ( isa => 'Int', is => 'ro', documentation => 'A foo' );
- has help => ( isa => 'Bool', is => 'ro', default => 0, documentation => 'Help');
our $usage = 0;
before _getopt_full_usage => sub { $usage++; };
@@ -44,9 +43,9 @@
my $exp = [
'Unknown option: q
',
- qq{usage: 104_override_usage.t [long options...]
-\t--help Help
-\t--foo A foo
+ qq{usage: 104_override_usage.t [-?] [long options...]
+\t-? --usage --help Prints this usage information.
+\t--foo A foo
}
];
More information about the Pkg-perl-cvs-commits
mailing list