lib/MooseX/Getopt/GLD.pm

   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