X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt.pm;h=f8133ed364bec83184158810dd3f67a641edc66c;hb=a9e27700692fd9cd3c6b83deb3718d199c1646d0;hp=d8b5d2bc097bb184c69a9fec1a011b654affad17;hpb=ed3bf9a5b6a09a361b133ac12bb07775d12e4f14;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm
index d8b5d2b..f8133ed 100644
--- a/lib/MooseX/Getopt.pm
+++ b/lib/MooseX/Getopt.pm
@@ -1,26 +1,25 @@
-
 package MooseX::Getopt;
-use Moose::Role;
-
-our $VERSION   = '0.20';
-our $AUTHORITY = 'cpan:STEVAN';
+# ABSTRACT: A Moose role for processing command line options
 
-use constant HAVE_GLD => not not eval { require Getopt::Long::Descriptive };
+use MooseX::Role::Parameterized;
 
-my @roles = ('MooseX::Getopt::Basic');
-if (HAVE_GLD()) { push @roles, 'MooseX::Getopt::GLD' }
+parameter getopt_conf => (
+    isa => 'ArrayRef[Str]',
+    default => sub { [ 'pass_through' ] },
+);
 
-with @roles;
+role {
 
-no Moose::Role; 1;
+    my $p = shift;
+    my $getopt_conf = $p->getopt_conf;
 
-__END__
+    with 'MooseX::Getopt::GLD' => { getopt_conf => $getopt_conf };
 
-=pod
+};
 
-=head1 NAME
+no Moose::Role;
 
-MooseX::Getopt - A Moose role for processing command line options
+1;
 
 =head1 SYNOPSIS
 
@@ -30,6 +29,10 @@ MooseX::Getopt - A Moose role for processing command line options
 
   with 'MooseX::Getopt';
 
+  # or
+
+  with 'MooseX::Getopt' => { getopt_conf => [ 'getopt_compat', 'bundling', ... ] };
+
   has 'out' => (is => 'rw', isa => 'Str', required => 1);
   has 'in'  => (is => 'rw', isa => 'Str', required => 1);
 
@@ -67,8 +70,8 @@ to have C<MooseX::Getopt> ignore your attribute in the commandline options.
 
 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', ...);
@@ -89,6 +92,13 @@ Options specified in multiple places follow the following
 precendence order: commandline overrides configfile, which
 overrides explicit new_with_options parameters.
 
+=head2 Global options
+
+This role is a parameterized role. It accepts a HashRef of parameters. For now
+there is only one configuration parameter, C<getopt_conf>. This parameter is an
+ArrayRef of strings, which are L<Getopt::Long> configuraion options (see
+"Configuring Getopt::Long" in L<Getopt::Long>). See L<SYNOPSIS> for an example.
+
 =head2 Supported Type Constraints
 
 =over 4
@@ -195,82 +205,62 @@ type for it to the C<OptionTypeMap>, it would be treated just
 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>.
 
 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>
-
-This returns the role meta object.
-
-=item B<HAVE_GLD>
-
-A constant for internal use.
-
-=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.
+=method B<usage>
 
-=head1 AUTHOR
+This accessor contains the L<Getopt::Long::Descriptive::Usage> object (if
+L<Getopt::Long::Descriptive> is used).
 
-Stevan Little E<lt>stevan@iinteractive.comE<gt>
+=method B<help_flag>
 
-Brandon L. Black, E<lt>blblack@gmail.comE<gt>
+This accessor contains the boolean state of the --help, --usage and --?
+options (true if any of these options were passed on the command line).
 
-Yuval Kogman, E<lt>nothingmuch@woobling.orgE<gt>
+=method B<meta>
 
-=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.
+This returns the role meta object.
 
-L<http://www.iinteractive.com>
+=method B<process_argv (%params)>
 
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+This does most of the work of C<new_with_options>, analyzing the parameters
+and argv, except for actually calling the constructor. It returns a
+L<MooseX::Getopt::ProcessedArgv> object. C<new_with_options> uses this
+method internally, so modifying this method via subclasses/roles will affect
+C<new_with_options>.
 
 =cut