-
package MooseX::Getopt;
-use Moose::Role;
-
-our $VERSION = '0.20';
-our $AUTHORITY = 'cpan:STEVAN';
-
-use constant HAVE_GLD => not not eval { require Getopt::Long::Descriptive };
-
-my @roles = ('MooseX::Getopt::Basic');
-if (HAVE_GLD()) { push @roles, 'MooseX::Getopt::GLD' }
+# ABSTRACT: A Moose role for processing command line options
-with @roles;
+use Moose::Role 0.56;
-no Moose::Role; 1;
+with 'MooseX::Getopt::GLD';
-__END__
+no Moose::Role;
-=pod
-
-=head1 NAME
-
-MooseX::Getopt - A Moose role for processing command line options
+1;
=head1 SYNOPSIS
By default, attributes which start with an underscore are not given
commandline argument support, unless the attribute's metaclass is set
-to L<MooseX::Getopt::Meta::Attribute>. If you don't want you accessors
-to have the leading underscore in thier name, you can do this:
+to L<MooseX::Getopt::Meta::Attribute>. If you don't want your accessors
+to have the leading underscore in their name, you can do this:
# for read/write attributes
has '_foo' => (accessor => 'foo', ...);
like a normal C<ArrayRef> type for Getopt purposes (that is,
C<=s@>).
-=head1 METHODS
-
-=over 4
-
-=item B<new_with_options (%params)>
+=method B<new_with_options (%params)>
This method will take a set of default C<%params> and then collect
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>.
-The paramater C<disable_gld>, if specified and a true value will disable
-the use of L<Getopt::Long::Descriptive> .
-
If L<Getopt::Long/GetOptions> fails (due to invalid arguments),
C<new_with_options> will throw an exception.
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
+command line params are passed, the program will exit with usage
+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.
--?
--help
--usage
-If you have L<Getopt::Long::Descriptive> a the C<usage> param is also passed to
-C<new>.
+If you have L<Getopt::Long::Descriptive> the C<usage> param is also passed to
+C<new> as the usage option.
-=item B<ARGV>
+=method B<ARGV>
This accessor contains a reference to a copy of the C<@ARGV> array
as it originally existed at the time of C<new_with_options>.
-=item B<extra_argv>
+=method B<extra_argv>
This accessor contains an arrayref of leftover C<@ARGV> elements that
L<Getopt::Long> did not parse. Note that the real C<@ARGV> is left
un-mangled.
-=item B<meta>
+=method B<usage>
-This returns the role meta object.
-
-=item B<HAVE_GLD>
+This accessor contains the L<Getopt::Long::Descriptive::Usage> object (if
+L<Getopt::Long::Descriptive> is used).
-A constant for internal use.
+=method B<help_flag>
-=back
+This accessor contains the boolean state of the --help, --usage and --?
+options (true if any of these options were passed on the command line).
-=head1 BUGS
+=method B<meta>
-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 E<lt>stevan@iinteractive.comE<gt>
-
-Brandon L. Black, E<lt>blblack@gmail.comE<gt>
-
-Yuval Kogman, E<lt>nothingmuch@woobling.orgE<gt>
-
-=head1 CONTRIBUTORS
-
-Ryan D Johnson, E<lt>ryan@innerfence.comE<gt>
-
-Drew Taylor, E<lt>drew@drewtaylor.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2007-2008 by Infinity Interactive, Inc.
-
-L<http://www.iinteractive.com>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+This returns the role meta object.
=cut
projects / gitmo/MooseX-Getopt.git / blobdiff