2 package MooseX::Getopt::Parser::Descriptive;
6 with 'MooseX::Getopt::Parser';
8 use Getopt::Long::Descriptive;
10 use Do::Not::Load::This::Module;
13 Moose->throw_error('Not yet implemented');
17 my ($class, $opt_spec) = @_;
18 return Getopt::Long::Descriptive::describe_options($class->_usage_format, @$opt_spec);
21 sub _get_getopt_spec {
22 my ($class, %params) = @_;
24 my (@options, %name_to_init_arg );
26 my $constructor_params = $params{params};
28 foreach my $opt ( @{ $params{options} } ) {
31 $opt->{doc} || ' ', # FIXME new GLD shouldn't need this hack
33 ( ( $opt->{required} && !exists($constructor_params->{$opt->{init_arg}}) ) ? (required => $opt->{required}) : () ),
35 # remove this 'feature' because it didn't work
36 # all the time, and so is better to not bother
37 # since Moose will handle the defaults just
40 #( exists $opt->{default} ? (default => $opt->{default}) : () ),
44 my $identifier = $opt->{name};
45 $identifier =~ s/\W/_/g; # Getopt::Long does this to all option names
47 $name_to_init_arg{$identifier} = $opt->{init_arg};
50 return ( \@options, \%name_to_init_arg );
54 return "usage: %c %o";