Commit | Line | Data |
ef47fe44 |
1 | package MooseX::Getopt::GLD; |
2 | |
3 | use Moose::Role; |
4 | |
5 | around '_getopt_spec' => sub { |
6 | my $orig = shift; |
7 | my $self = shift; |
8 | |
9 | return $self->_gld_spec(@_); |
10 | # Ignore $orig, code for _gld_spec here |
11 | }; |
12 | |
13 | around '_get_options' => sub { |
14 | my $orig = shift; |
15 | my $class = shift; |
16 | |
17 | my ($params, $opt_spec) = @_; |
18 | return Getopt::Long::Descriptive::describe_options( |
19 | $class->_usage_format(%$params), @$opt_spec |
20 | ); |
21 | }; |
22 | |
23 | 1; |
24 | |
25 | __END__ |
26 | |
27 | =pod |
28 | |
29 | =head1 NAME |
30 | |
31 | MooseX::Getopt::GLD - role to implement specific functionality for |
32 | L<Getopt::Long::Descriptive> |
33 | |
34 | =head1 SYNOPSIS |
35 | |
36 | For internal use. |
37 | |
38 | =head1 DESCRIPTION |
39 | |
40 | This is a role for C<MooseX::Getopt>. |
41 | |
42 | =head1 METHODS |
43 | |
44 | =over 4 |
45 | |
46 | =item meta |
47 | |
48 | =back |
49 | |
50 | =head1 BUGS |
51 | |
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 |
54 | to cpan-RT. |
55 | |
56 | =head1 AUTHOR |
57 | |
58 | Dagfinn Ilmari MannsE<aring>ker E<lt>ilmari@ilmari.orgE<gt> |
59 | |
60 | Stevan Little E<lt>stevan@iinteractive.comE<gt> |
61 | |
62 | Yuval Kogman C<< <nuffin@cpan.org> >> |
63 | |
64 | =head1 COPYRIGHT AND LICENSE |
65 | |
66 | Copyright 2007-2008 by Infinity Interactive, Inc. |
67 | |
68 | L<http://www.iinteractive.com> |
69 | |
70 | This library is free software; you can redistribute it and/or modify |
71 | it under the same terms as Perl itself. |
72 | |
73 | =cut |
74 | =head1 |