From: Florian Ragwitz Date: Sat, 5 Jun 2010 10:03:52 +0000 (+0200) Subject: Convert to Dist::Zilla X-Git-Tag: 0.28~7 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=commitdiff_plain;h=669588e263ff229c94d602596f23cc91deefed75 Convert to Dist::Zilla --- diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP deleted file mode 100644 index 45ff306..0000000 --- a/MANIFEST.SKIP +++ /dev/null @@ -1,21 +0,0 @@ -^.git -^_build -^Build$ -^blib -~$ -\.bak$ -^MANIFEST\.SKIP$ -CVS -\.svn -\.DS_Store -cover_db -\..*\.sw.?$ -^Makefile$ -^pm_to_blib$ -^MakeMaker-\d -^blibdirs$ -\.old$ -^#.*#$ -^\.# -^TODO$ -^MooseX-Getopt diff --git a/Makefile.PL b/Makefile.PL deleted file mode 100644 index 5caf5f4..0000000 --- a/Makefile.PL +++ /dev/null @@ -1,33 +0,0 @@ -use strict; -use warnings; -use inc::Module::Install 0.91; - -if ($Module::Install::AUTHOR) { - require Module::Install::AuthorRequires; - require Module::Install::AuthorTests; -} - -name 'MooseX-Getopt'; -license 'perl'; - -all_from 'lib/MooseX/Getopt.pm'; - -requires 'Moose' => '0.56'; -requires 'Getopt::Long' => '2.37'; - -# optional -requires 'Getopt::Long::Descriptive' => '0.081'; - -build_requires 'Test::Moose'; -build_requires 'Test::More' => '0.62'; -build_requires 'Test::Exception' => '0.21'; - -author_requires 'Test::Pod' => 1.14; -author_requires 'Test::Pod::Coverage' => '1.04'; -author_tests('t/author'); - -resources repository => 'git://git.moose.perl.org/MooseX-Getopt.git'; - -auto_manifest(); - -WriteAll; diff --git a/README b/README deleted file mode 100644 index 0aa0993..0000000 --- a/README +++ /dev/null @@ -1,30 +0,0 @@ -MooseX::Getopt version 0.27 -=========================== - -See the individual module documentation for more information - -INSTALLATION - -To install this module type the following: - - perl Makefile.PL - make - make test - make install - -DEPENDENCIES - -This module requires these other modules and libraries: - - Moose - Getopt::Long - -COPYRIGHT AND LICENCE - -Copyright (C) 2007-2009 Infinity Interactive, Inc. - -http://www.iinteractive.com - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - diff --git a/dist.ini b/dist.ini new file mode 100644 index 0000000..601337d --- /dev/null +++ b/dist.ini @@ -0,0 +1,19 @@ +name = MooseX-Getopt +version = 0.27 +author = Stevan Little +author = Brandon L. Black +author = Yuval Kogman +author = Ryan D Johnson +author = Drew Taylor +author = Tomas Doran +author = Florian Ragwitz +author = Dagfinn Ilmari MannsEker +author = Evar ArnfjErE Bjarmason +author = Chris Prather +license = Perl_5 +copyright_holder = Infinity Interactive, Inc + +[@FLORA] +dist = MooseX-Getopt +repository_at = github +authority = cpan:STEVAN diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm index e8b6812..c2b80e0 100644 --- a/lib/MooseX/Getopt.pm +++ b/lib/MooseX/Getopt.pm @@ -1,22 +1,15 @@ package MooseX::Getopt; -use Moose::Role; +# ABSTRACT: A Moose role for processing command line options -use constant _HAVE_GLD => not not eval { require Getopt::Long::Descriptive }; +use Moose::Role 0.56; -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; +use constant _HAVE_GLD => not not eval { require Getopt::Long::Descriptive }; with _HAVE_GLD ? 'MooseX::Getopt::GLD' : 'MooseX::Getopt::Basic'; -no Moose::Role; 1; - -__END__ +no Moose::Role; -=pod - -=head1 NAME - -MooseX::Getopt - A Moose role for processing command line options +1; =head1 SYNOPSIS @@ -191,11 +184,7 @@ type for it to the C, it would be treated just like a normal C type for Getopt purposes (that is, C<=s@>). -=head1 METHODS - -=over 4 - -=item B +=method B This method will take a set of default C<%params> and then collect params from the command line (possibly overriding those in C<%params>) @@ -219,52 +208,19 @@ B option for each attribute to document. If you have L the C param is also passed to C. -=item B +=method B This accessor contains a reference to a copy of the C<@ARGV> array as it originally existed at the time of C. -=item B +=method B This accessor contains an arrayref of leftover C<@ARGV> elements that L did not parse. Note that the real C<@ARGV> is left un-mangled. -=item B +=method B This returns the role meta object. -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -Brandon L. Black, Eblblack@gmail.comE - -Yuval Kogman, Enothingmuch@woobling.orgE - -=head1 CONTRIBUTORS - -Ryan D Johnson, Eryan@innerfence.comE - -Drew Taylor, Edrew@drewtaylor.comE - -Tomas Doran, (t0m) C<< >> - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut diff --git a/lib/MooseX/Getopt/Basic.pm b/lib/MooseX/Getopt/Basic.pm index 316b15c..7d5d696 100644 --- a/lib/MooseX/Getopt/Basic.pm +++ b/lib/MooseX/Getopt/Basic.pm @@ -1,5 +1,6 @@ - package MooseX::Getopt::Basic; +# ABSTRACT: MooseX::Getopt::Basic - role to implement the Getopt::Long functionality + use Moose::Role; use MooseX::Getopt::OptionTypeMap; @@ -7,7 +8,7 @@ use MooseX::Getopt::Meta::Attribute; use MooseX::Getopt::Meta::Attribute::NoGetopt; use Carp (); -use Getopt::Long (); +use Getopt::Long 2.37 (); has ARGV => (is => 'rw', isa => 'ArrayRef', metaclass => "NoGetopt"); has extra_argv => (is => 'rw', isa => 'ArrayRef', metaclass => "NoGetopt"); @@ -220,15 +221,8 @@ sub _attrs_to_options { return @options; } -no Moose::Role; 1; - -__END__ - -=pod - -=head1 NAME - -MooseX::Getopt::Basic - role to implement the Getopt::Long functionality +no Moose::Role; +1; =head1 SYNOPSIS @@ -259,20 +253,8 @@ MooseX::Getopt::Basic - role to implement the Getopt::Long functionality This is like L and can be used instead except that it doesn't make use of L (or "GLD" for short). -=head1 METHODS - -=head2 new_with_options +=method new_with_options See L. -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut - diff --git a/lib/MooseX/Getopt/Dashes.pm b/lib/MooseX/Getopt/Dashes.pm index bb8a9bb..ef6a559 100644 --- a/lib/MooseX/Getopt/Dashes.pm +++ b/lib/MooseX/Getopt/Dashes.pm @@ -1,4 +1,6 @@ package MooseX::Getopt::Dashes; +# ABSTRACT: convert underscores in attribute names to dashes + use Moose::Role; with 'MooseX::Getopt'; @@ -15,15 +17,9 @@ around _get_cmd_flags_for_attr => sub { return ( $flag, @aliases ); }; -1; - -__END__ +no Moose::Role; -=pod - -=head1 NAME - -MooseX::Getopt::Dashes - convert underscores in attribute names to dashes +1; =head1 SYNOPSIS @@ -59,37 +55,4 @@ a L argument with the command flag you'd like for a given attribute. No underscore to dash replacement will be done on the C. -=head1 METHODS - -=over 4 - -=item meta - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Dagfinn Ilmari MannsEker Eilmari@ilmari.orgE - -Stevan Little Estevan@iinteractive.comE - -Yuval Kogman C<< >> - -Evar ArnfjErE Bjarmason Eavar@cpan.orgE - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut diff --git a/lib/MooseX/Getopt/GLD.pm b/lib/MooseX/Getopt/GLD.pm index 819455d..2cfbd7d 100644 --- a/lib/MooseX/Getopt/GLD.pm +++ b/lib/MooseX/Getopt/GLD.pm @@ -1,8 +1,9 @@ - package MooseX::Getopt::GLD; +# ABSTRACT: A Moose role for processing command line options with Getopt::Long::Descriptive + use Moose::Role; -use Getopt::Long::Descriptive; +use Getopt::Long::Descriptive 0.081; with 'MooseX::Getopt::Basic'; @@ -49,15 +50,9 @@ sub _gld_spec { return ( \@options, \%name_to_init_arg ); } -no Moose::Role; 1; - -__END__ - -=pod - -=head1 NAME +no Moose::Role; -MooseX::Getopt::GLD - A Moose role for processing command line options with Getopt::Long::Descriptive +1; =head1 SYNOPSIS @@ -83,15 +78,4 @@ MooseX::Getopt::GLD - A Moose role for processing command line options with Geto ## on the command line % perl my_app_script.pl -in file.input -out file.dump -=head1 DESCRIPTION - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2009 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut diff --git a/lib/MooseX/Getopt/Meta/Attribute.pm b/lib/MooseX/Getopt/Meta/Attribute.pm index 410a48d..8bace3b 100644 --- a/lib/MooseX/Getopt/Meta/Attribute.pm +++ b/lib/MooseX/Getopt/Meta/Attribute.pm @@ -1,46 +1,36 @@ - package MooseX::Getopt::Meta::Attribute; +# ABSTRACT: Optional meta attribute for custom option names + use Moose; use Moose::Util::TypeConstraints; -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; - extends 'Moose::Meta::Attribute'; # << Moose extending Moose :) with 'MooseX::Getopt::Meta::Attribute::Trait'; no Moose; # register this as a metaclass alias ... -package # stop confusing PAUSE +package # stop confusing PAUSE Moose::Meta::Attribute::Custom::Getopt; sub register_implementation { 'MooseX::Getopt::Meta::Attribute' } 1; -__END__ - -=pod - -=head1 NAME - -MooseX::Getopt::Meta::Attribute - Optional meta attribute for custom option names - =head1 SYNOPSIS package App; use Moose; - + with 'MooseX::Getopt'; - + has 'data' => ( - metaclass => 'MooseX::Getopt::Meta::Attribute', + metaclass => 'MooseX::Getopt::Meta::Attribute', is => 'ro', isa => 'Str', default => 'file.dat', - # tells MooseX::Getopt to use --somedata as the - # command line flag instead of the normal + # tells MooseX::Getopt to use --somedata as the + # command line flag instead of the normal # autogenerated one (--data) cmd_flag => 'somedata', @@ -55,65 +45,33 @@ MooseX::Getopt::Meta::Attribute - Optional meta attribute for custom option name =head1 DESCRIPTION -This is a custom attribute metaclass which can be used to specify a -the specific command line flag to use instead of the default one -which L will create for you. +This is a custom attribute metaclass which can be used to specify a +the specific command line flag to use instead of the default one +which L will create for you. -This is certainly not the prettiest way to go about this, but for +This is certainly not the prettiest way to go about this, but for now it works for those who might need such a feature. =head2 Custom Metaclass alias -This now takes advantage of the Moose 0.19 feature to support +This now takes advantage of the Moose 0.19 feature to support custom attribute metaclass aliases. This means you can also use this as the B alias, like so: has 'foo' => (metaclass => 'Getopt', cmd_flag => 'f'); -=head1 METHODS - -These methods are of little use to most users, they are used interally -within L. - -=over 4 - -=item B +=method B Changes the commandline flag to be this value, instead of the default, which is the same as the attribute name. -=item B +=method B Adds more aliases for this commandline flag, useful for short options and such. -=item B - -=item B - -=item B - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -Brandon L. Black, Eblblack@gmail.comE - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L +=method B -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. +=method B =cut diff --git a/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm b/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm index 020b620..934f041 100644 --- a/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm +++ b/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm @@ -1,9 +1,7 @@ - package MooseX::Getopt::Meta::Attribute::NoGetopt; -use Moose; +# ABSTRACT: Optional meta attribute for ignoring params -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; +use Moose; extends 'Moose::Meta::Attribute'; # << Moose extending Moose :) with 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt'; @@ -17,23 +15,15 @@ sub register_implementation { 'MooseX::Getopt::Meta::Attribute::NoGetopt' } 1; -__END__ - -=pod - -=head1 NAME - -MooseX::Getopt::Meta::Attribute::NoGetopt - Optional meta attribute for ignoring params - =head1 SYNOPSIS package App; use Moose; - + with 'MooseX::Getopt'; - + has 'data' => ( - metaclass => 'NoGetopt', # do not attempt to capture this param + metaclass => 'NoGetopt', # do not attempt to capture this param is => 'ro', isa => 'Str', default => 'file.dat', @@ -41,40 +31,11 @@ MooseX::Getopt::Meta::Attribute::NoGetopt - Optional meta attribute for ignoring =head1 DESCRIPTION -This is a custom attribute metaclass which can be used to specify -that a specific attribute should B be processed by -C. All you need to do is specify the C +This is a custom attribute metaclass which can be used to specify +that a specific attribute should B be processed by +C. All you need to do is specify the C metaclass. has 'foo' => (metaclass => 'NoGetopt', ... ); -=head1 METHODS - -=over 4 - -=item B - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -Chris Prather C<< >> - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut diff --git a/lib/MooseX/Getopt/Meta/Attribute/Trait.pm b/lib/MooseX/Getopt/Meta/Attribute/Trait.pm index 417e34f..9f97881 100644 --- a/lib/MooseX/Getopt/Meta/Attribute/Trait.pm +++ b/lib/MooseX/Getopt/Meta/Attribute/Trait.pm @@ -1,11 +1,9 @@ - package MooseX::Getopt::Meta::Attribute::Trait; +# ABSTRACT: Optional meta attribute trait for custom option names + use Moose::Role; use Moose::Util::TypeConstraints; -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; - has 'cmd_flag' => ( is => 'rw', isa => 'Str', @@ -15,7 +13,7 @@ has 'cmd_flag' => ( # This subtype is to support scalar -> arrayref coercion # without polluting the built-in types subtype '_MooseX_Getopt_CmdAliases' => as 'ArrayRef'; - + coerce '_MooseX_Getopt_CmdAliases' => from 'Str' => via { [$_] }; @@ -27,38 +25,31 @@ has 'cmd_aliases' => ( coerce => 1, ); +no Moose::Util::TypeConstraints; no Moose::Role; # register this as a metaclass alias ... -package # stop confusing PAUSE +package # stop confusing PAUSE Moose::Meta::Attribute::Custom::Trait::Getopt; sub register_implementation { 'MooseX::Getopt::Meta::Attribute::Trait' } 1; -__END__ - -=pod - -=head1 NAME - -MooseX::Getopt::Meta::Attribute::Trait - Optional meta attribute trait for custom option names - =head1 SYNOPSIS package App; use Moose; - + with 'MooseX::Getopt'; - + has 'data' => ( - traits => [ 'Getopt' ], + traits => [ 'Getopt' ], is => 'ro', isa => 'Str', default => 'file.dat', - # tells MooseX::Getopt to use --somedata as the - # command line flag instead of the normal + # tells MooseX::Getopt to use --somedata as the + # command line flag instead of the normal # autogenerated one (--data) cmd_flag => 'somedata', @@ -73,52 +64,22 @@ MooseX::Getopt::Meta::Attribute::Trait - Optional meta attribute trait for custo =head1 DESCRIPTION -This is a custom attribute metaclass trait which can be used to -specify a the specific command line flag to use instead of the -default one which L will create for you. - -=head1 METHODS - -These methods are of little use to most users, they are used interally -within L. +This is a custom attribute metaclass trait which can be used to +specify a the specific command line flag to use instead of the +default one which L will create for you. -=over 4 - -=item B +=method B Changes the commandline flag to be this value, instead of the default, which is the same as the attribute name. -=item B +=method B Adds more aliases for this commandline flag, useful for short options and such. -=item B - -=item B - -=item B - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L +=method B -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. +=method B =cut diff --git a/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm b/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm index 84f2067..f3d0846 100644 --- a/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm +++ b/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm @@ -1,10 +1,7 @@ - package MooseX::Getopt::Meta::Attribute::Trait::NoGetopt; -use Moose::Role; - -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; +# ABSTRACT: Optional meta attribute trait for ignoring params +use Moose::Role; no Moose::Role; # register this as a metaclass alias ... @@ -14,23 +11,15 @@ sub register_implementation { 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt' 1; -__END__ - -=pod - -=head1 NAME - -MooseX::Getopt::Meta::Attribute::Trait::NoGetopt - Optional meta attribute trait for ignoring params - =head1 SYNOPSIS package App; use Moose; - + with 'MooseX::Getopt'; - + has 'data' => ( - traits => [ 'NoGetopt' ], # do not attempt to capture this param + traits => [ 'NoGetopt' ], # do not attempt to capture this param is => 'ro', isa => 'Str', default => 'file.dat', @@ -38,38 +27,11 @@ MooseX::Getopt::Meta::Attribute::Trait::NoGetopt - Optional meta attribute trait =head1 DESCRIPTION -This is a custom attribute metaclass trait which can be used to -specify that a specific attribute should B be processed by -C. All you need to do is specify the C +This is a custom attribute metaclass trait which can be used to +specify that a specific attribute should B be processed by +C. All you need to do is specify the C metaclass trait. has 'foo' => (traits => [ 'NoGetopt', ... ], ... ); -=head1 METHODS - -=over 4 - -=item B - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut diff --git a/lib/MooseX/Getopt/OptionTypeMap.pm b/lib/MooseX/Getopt/OptionTypeMap.pm index 3504ca3..15c479f 100644 --- a/lib/MooseX/Getopt/OptionTypeMap.pm +++ b/lib/MooseX/Getopt/OptionTypeMap.pm @@ -1,19 +1,16 @@ - package MooseX::Getopt::OptionTypeMap; +# ABSTRACT: Storage for the option to type mappings use Moose 'confess', 'blessed'; use Moose::Util::TypeConstraints 'find_type_constraint'; -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; - my %option_type_map = ( 'Bool' => '!', 'Str' => '=s', 'Int' => '=i', 'Num' => '=f', 'ArrayRef' => '=s@', - 'HashRef' => '=s%', + 'HashRef' => '=s%', ); sub has_option_type { @@ -22,10 +19,10 @@ sub has_option_type { return 1 if exists $option_type_map{blessed($type_or_name) ? $type_or_name->name : $type_or_name}; my $current = blessed($type_or_name) ? $type_or_name : find_type_constraint($type_or_name); - + (defined $current) || confess "Could not find the type constraint for '$type_or_name'"; - + while (my $parent = $current->parent) { return 1 if exists $option_type_map{$parent->name}; $current = $parent; @@ -42,9 +39,9 @@ sub get_option_type { return $option_type_map{$name} if exists $option_type_map{$name}; my $current = ref $type_or_name ? $type_or_name : find_type_constraint($type_or_name); - + (defined $current) - || confess "Could not find the type constraint for '$type_or_name'"; + || confess "Could not find the type constraint for '$type_or_name'"; while ( $current = $current->parent ) { return $option_type_map{$current->name} @@ -69,55 +66,20 @@ sub add_option_type_to_map { $option_type_map{$type_name} = $option_string; } -no Moose; no Moose::Util::TypeConstraints; 1; +no Moose::Util::TypeConstraints; +no Moose; -__END__ - - -=pod - -=head1 NAME - -MooseX::Getopt::OptionTypeMap - Storage for the option to type mappings +1; =head1 DESCRIPTION See the I section in the L docs for more info about how to use this module. -=head1 METHODS - -These are all class methods and should be called as such. - -=over 4 - -=item B - -=item B - -=item B - -=item B - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. +=method B -L +=method B -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. +=method B =cut diff --git a/lib/MooseX/Getopt/Strict.pm b/lib/MooseX/Getopt/Strict.pm index 9b3efac..8241b14 100644 --- a/lib/MooseX/Getopt/Strict.pm +++ b/lib/MooseX/Getopt/Strict.pm @@ -1,5 +1,6 @@ - package MooseX::Getopt::Strict; +# ABSTRACT: only make options for attrs with the Getopt metaclass + use Moose::Role; with 'MooseX::Getopt'; @@ -12,49 +13,14 @@ around '_compute_getopt_attrs' => sub { } $class->$next(@args); }; -1; - -__END__ - -=pod +no Moose::Role; -=head1 NAME +1; -MooseX::Getopt::Strict - only make options for attrs with the Getopt metaclass - =head1 DESCRIPTION -This is an stricter version of C which only processes the +This is an stricter version of C which only processes the attributes if they explicitly set as C attributes. All other attributes are ignored by the command line handler. - -=head1 METHODS - -=over 4 - -=item meta - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -Yuval Kogman C<< >> - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. =cut diff --git a/t/author/pod.t b/t/author/pod.t deleted file mode 100644 index be6ebf5..0000000 --- a/t/author/pod.t +++ /dev/null @@ -1,9 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More; -use Test::Pod 1.14; - -all_pod_files_ok(); diff --git a/t/author/pod_coverage.t b/t/author/pod_coverage.t deleted file mode 100644 index d3225ba..0000000 --- a/t/author/pod_coverage.t +++ /dev/null @@ -1,9 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More; -use Test::Pod::Coverage 1.04; - -all_pod_coverage_ok();