1 package MooseX::Getopt::GLD;
5 around '_getopt_spec' => sub {
9 return $self->_gld_spec(@_);
10 # Ignore $orig, code for _gld_spec here
13 around '_get_options' => sub {
17 my ($params, $opt_spec) = @_;
18 return Getopt::Long::Descriptive::describe_options(
19 $class->_usage_format(%$params), @$opt_spec
31 MooseX::Getopt::GLD - role to implement specific functionality for
32 L<Getopt::Long::Descriptive>
40 This is a role for C<MooseX::Getopt>.
52 All complex software has bugs lurking in it, and this module is no
53 exception. If you find a bug please either email me, or add the bug
58 Dagfinn Ilmari MannsE<aring>ker E<lt>ilmari@ilmari.orgE<gt>
60 Stevan Little E<lt>stevan@iinteractive.comE<gt>
62 Yuval Kogman C<< <nuffin@cpan.org> >>
64 =head1 COPYRIGHT AND LICENSE
66 Copyright 2007-2008 by Infinity Interactive, Inc.
68 L<http://www.iinteractive.com>
70 This library is free software; you can redistribute it and/or modify
71 it under the same terms as Perl itself.