...
 
Commits (7)
Revision history for Perl extension MouseX-Getopt
0.38 2019-01-26T03:38:09Z
* Cope with GLD output changes in version 0.103 (#13, by pghmcfc)
0.37 2016-07-13T03:23:39Z
* Cope with GLD output changes in version 0.100 (#10, by pghmcfc)
......
......@@ -4,7 +4,7 @@
"=over 4"
],
"dynamic_config" : 0,
"generated_by" : "Minilla/v3.0.2",
"generated_by" : "Minilla/v3.1.4",
"license" : [
"perl_5"
],
......@@ -66,7 +66,7 @@
"provides" : {
"MouseX::Getopt" : {
"file" : "lib/MouseX/Getopt.pm",
"version" : "0.37"
"version" : "0.38"
},
"MouseX::Getopt::Basic" : {
"file" : "lib/MouseX/Getopt/Basic.pm"
......@@ -107,36 +107,38 @@
"web" : "https://github.com/gfx/mousex-getopt"
}
},
"version" : "0.37",
"version" : "0.38",
"x_authority" : "cpan:GFUJI",
"x_contributors" : [
"Brandon L Black <blblack@gmail.com>",
"Ryan D Johnson <ryan@innerfence.com>",
"Todd Hepler <thepler@employees.org>",
"John Goulah <jgoulah@cpan.org>",
"Chris Prather <chris@prather.org>",
"Stevan Little <stevan.little@iinteractive.com>",
"Yuval Kogman <nothingmuch@woobling.org>",
"Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>",
"Hans Dieter Pearcey <hdp@weftsoar.net>",
"Nelo Onyiah <nelo.onyiah@gmail.com>",
"Ricardo SIGNES <rjbs@cpan.org>",
"Devin Austin <devin@devin-laptop.(none)>",
"FUJI Goro (gfx) <gfuji@cpan.org>",
"FUJI Goro <gfx@users.noreply.github.com>",
"FUJI Goro <goro.fuji@ebookjapan.co.jp>",
"Florian Ragwitz <rafl@debian.org>",
"Gordon Irving <goraxe@goraxe.me.uk>",
"Shlomi Fish <shlomif@iglu.org.il>",
"Hans Dieter Pearcey <hdp@weftsoar.net>",
"Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>",
"Tomas Doran (t0m) <t0m@state51.co.uk>",
"Ævar Arnfjörð Bjarmason <avarab@gmail.com>",
"Jesse Luehrs <doy@tozt.net>",
"Florian Ragwitz <rafl@debian.org>",
"Karen Etheridge <karen@etheridge.ca>",
"John Goulah <jgoulah@cpan.org>",
"Justin Hunter <justin.d.hunter@gmail.com>",
"Tomas Doran <bobtfish@bobtfish.net>",
"Karen Etheridge <karen@etheridge.ca>",
"Mark Gardner <gardnerm@gsicommerce.com>",
"Tokuhiro Matsuno <tokuhirom@gmail.com>",
"FUJI Goro (gfx) <gfuji@cpan.org>",
"Nelo Onyiah <nelo.onyiah@gmail.com>",
"Paul Howarth <paul@city-fan.org>",
"FUJI Goro <gfx@users.noreply.github.com>",
"FUJI Goro <goro.fuji@ebookjapan.co.jp>"
]
"Ricardo SIGNES <rjbs@cpan.org>",
"Ryan D Johnson <ryan@innerfence.com>",
"Shlomi Fish <shlomif@iglu.org.il>",
"Stevan Little <stevan.little@iinteractive.com>",
"Todd Hepler <thepler@employees.org>",
"Tokuhiro Matsuno <tokuhirom@gmail.com>",
"Tomas Doran (t0m) <t0m@state51.co.uk>",
"Tomas Doran <bobtfish@bobtfish.net>",
"Yuval Kogman <nothingmuch@woobling.org>",
"Ævar Arnfjörð Bjarmason <avarab@gmail.com>"
],
"x_serialization_backend" : "JSON::PP version 2.97001",
"x_static_install" : 1
}
......@@ -14,7 +14,7 @@ build_requires:
configure_requires:
Module::Build::Tiny: '0.035'
dynamic_config: 0
generated_by: 'Minilla/v3.0.2, CPAN::Meta::Converter version 2.150001'
generated_by: 'Minilla/v3.1.4, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
......@@ -33,7 +33,7 @@ no_index:
provides:
MouseX::Getopt:
file: lib/MouseX/Getopt.pm
version: '0.37'
version: '0.38'
MouseX::Getopt::Basic:
file: lib/MouseX/Getopt/Basic.pm
MouseX::Getopt::Dashes:
......@@ -63,34 +63,36 @@ resources:
bugtracker: https://github.com/gfx/mousex-getopt/issues
homepage: https://github.com/gfx/mousex-getopt
repository: git://github.com/gfx/mousex-getopt.git
version: '0.37'
version: '0.38'
x_authority: cpan:GFUJI
x_contributors:
- 'Brandon L Black <blblack@gmail.com>'
- 'Ryan D Johnson <ryan@innerfence.com>'
- 'Todd Hepler <thepler@employees.org>'
- 'John Goulah <jgoulah@cpan.org>'
- 'Chris Prather <chris@prather.org>'
- 'Stevan Little <stevan.little@iinteractive.com>'
- 'Yuval Kogman <nothingmuch@woobling.org>'
- 'Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>'
- 'Hans Dieter Pearcey <hdp@weftsoar.net>'
- 'Nelo Onyiah <nelo.onyiah@gmail.com>'
- 'Ricardo SIGNES <rjbs@cpan.org>'
- 'Devin Austin <devin@devin-laptop.(none)>'
- 'FUJI Goro (gfx) <gfuji@cpan.org>'
- 'FUJI Goro <gfx@users.noreply.github.com>'
- 'FUJI Goro <goro.fuji@ebookjapan.co.jp>'
- 'Florian Ragwitz <rafl@debian.org>'
- 'Gordon Irving <goraxe@goraxe.me.uk>'
- 'Shlomi Fish <shlomif@iglu.org.il>'
- 'Hans Dieter Pearcey <hdp@weftsoar.net>'
- 'Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>'
- 'Tomas Doran (t0m) <t0m@state51.co.uk>'
- 'Ævar Arnfjörð Bjarmason <avarab@gmail.com>'
- 'Jesse Luehrs <doy@tozt.net>'
- 'Florian Ragwitz <rafl@debian.org>'
- 'Karen Etheridge <karen@etheridge.ca>'
- 'John Goulah <jgoulah@cpan.org>'
- 'Justin Hunter <justin.d.hunter@gmail.com>'
- 'Tomas Doran <bobtfish@bobtfish.net>'
- 'Karen Etheridge <karen@etheridge.ca>'
- 'Mark Gardner <gardnerm@gsicommerce.com>'
- 'Tokuhiro Matsuno <tokuhirom@gmail.com>'
- 'FUJI Goro (gfx) <gfuji@cpan.org>'
- 'Nelo Onyiah <nelo.onyiah@gmail.com>'
- 'Paul Howarth <paul@city-fan.org>'
- 'FUJI Goro <gfx@users.noreply.github.com>'
- 'FUJI Goro <goro.fuji@ebookjapan.co.jp>'
- 'Ricardo SIGNES <rjbs@cpan.org>'
- 'Ryan D Johnson <ryan@innerfence.com>'
- 'Shlomi Fish <shlomif@iglu.org.il>'
- 'Stevan Little <stevan.little@iinteractive.com>'
- 'Todd Hepler <thepler@employees.org>'
- 'Tokuhiro Matsuno <tokuhirom@gmail.com>'
- 'Tomas Doran (t0m) <t0m@state51.co.uk>'
- 'Tomas Doran <bobtfish@bobtfish.net>'
- 'Yuval Kogman <nothingmuch@woobling.org>'
- 'Ævar Arnfjörð Bjarmason <avarab@gmail.com>'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
x_static_install: 1
package MouseX::Getopt;
# ABSTRACT: A Mouse role for processing command line options
our $VERSION = "0.37";
our $VERSION = "0.38";
use Mouse::Role;
......
......@@ -55,9 +55,15 @@ use Test::Exception;
\t--foo INT A foo
}
:
$Getopt::Long::Descriptive::VERSION < 0.103 ?
qq{usage: 104_override_usage.t [-?] [long options...]
\t-? --usage --help Prints this usage information.
\t--foo INT A foo
}
:
qq{usage: 104_override_usage.t [-?] [long options...]
\t-? --[no-]usage --[no-]help Prints this usage information.
\t--foo INT A foo
}
];
......
......@@ -60,7 +60,7 @@ END {
warning_like {
throws_ok { Class->new_with_options }
#usage: 107_no_auto_help.t [-?] [long options...]
qr/^usage: [\d\w]+\Q.t [-?] [long options...]\E.\s+\Q-? --usage --help\E\s+\QPrints this usage information.\E.\s+--configfile/ms,
qr/^usage: [\d\w]+\Q.t [-?] [long options...]\E.\s+\Q-? --\E(\[no-\])?usage --(\[no-\])?\Qhelp\E\s+\QPrints this usage information.\E.\s+--configfile/ms,
'usage information looks good';
}
qr/^Specified configfile \'this_value_unimportant\' does not exist, is empty, or is not readable$/,
......
......@@ -40,7 +40,7 @@ foreach my $args ( ['--help'], ['--usage'], ['--?'], ['-?'] )
local @ARGV = @$args;
throws_ok { MyClass->new_with_options() }
qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --usage --help\E\s+\QPrints this usage information.\E$/ms,
qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --\E(\[no-\])?usage --(\[no-\])?help\s+\QPrints this usage information.\E$/ms,
'Help request detected; usage information properly printed';
}
......
......@@ -54,6 +54,16 @@ usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
--baz STR Documentation for "baz"
USAGE
}
if ( $Getopt::Long::Descriptive::VERSION >= 0.103 )
{
$expected = <<'USAGE';
usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
-? --[no-]usage --[no-]help Prints this usage information.
--foo STR Documentation for "foo"
--bar STR Documentation for "bar"
--baz STR Documentation for "baz"
USAGE
}
$expected =~ s/^[ ]{4}/\t/xmsg;
is($obj->usage->text, $expected, 'Usage text has nicely sorted options');