MouseX::App::Cmd::Command - Base class for MouseX::Getopt based
App::Cmd::Commands
use Mouse;
extends qw(MouseX::App::Cmd::Command);
# no need to set opt_spec
# see MouseX::Getopt for documentation on how to specify options
has option_field => (
isa => 'Str',
is => 'rw',
required => 1,
);
sub execute {
my ( $self, $opts, $args ) = @_;
print $self->option_field; # also available in $opts->{option_field}
}
This is a replacement base class for App::Cmd::Command classes that includes
MouseX::Getopt and the glue to combine the two.
Replaces App::Cmd::Command's argument processing in favor of MouseX::Getopt
based processing.
If your class does the MouseX::ConfigFromFile role (or any of its
consuming roles like MouseX::SimpleConfig), this will provide an additional
"--configfile" command line option for
loading options from a configuration file.
יובל קוג'מן
(Yuval Kogman) <nothingmuch@woobling.org>
This software is copyright (c) 2008 by Infinity Interactive, Inc..
This is free software; you can redistribute it and/or modify it
under the same terms as the Perl 5 programming language system itself.