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

diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm
index 038d141..f8133ed 100644
--- a/lib/MooseX/Getopt.pm
+++ b/lib/MooseX/Getopt.pm
@@ -1,9 +1,21 @@
 package MooseX::Getopt;
 # ABSTRACT: A Moose role for processing command line options
 
-use Moose::Role 0.56;
+use MooseX::Role::Parameterized;
 
-with 'MooseX::Getopt::GLD';
+parameter getopt_conf => (
+    isa => 'ArrayRef[Str]',
+    default => sub { [ 'pass_through' ] },
+);
+
+role {
+
+    my $p = shift;
+    my $getopt_conf = $p->getopt_conf;
+
+    with 'MooseX::Getopt::GLD' => { getopt_conf => $getopt_conf };
+
+};
 
 no Moose::Role;
 
@@ -17,6 +29,10 @@ no Moose::Role;
 
   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);
 
@@ -76,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