—

              
package MooseX::App::Cmd; # git description: v0.33-2-ga6c151d
our $VERSION = '0.34';
use Moose;
use MooseX::NonMoose;
extends 'App::Cmd';
use namespace::autoclean;
## no critic (Modules::RequireExplicitInclusion)
__PACKAGE__->meta->make_immutable();
1;
# ABSTRACT: Mashes up MooseX::Getopt and App::Cmd
__END__
HideShow 164 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
MooseX::App::Cmd - Mashes up MooseX::Getopt and App::Cmd
=head1 VERSION
version 0.34
=head1 SYNOPSIS
    package YourApp::Cmd;
    use Moose;
    extends qw(MooseX::App::Cmd);
    package YourApp::Cmd::Command::blort;
    use Moose;
    extends qw(MooseX::App::Cmd::Command);
    has blortex => (
        traits => [qw(Getopt)],
        isa => 'Bool',
        is  => 'rw',
        cmd_aliases   => 'X',
        documentation => 'use the blortext algorithm',
    );
    has recheck => (
        traits => [qw(Getopt)],
        isa => 'Bool',
        is  => 'rw',
        cmd_aliases => 'r',
        documentation => 'recheck all results',
    );
    sub execute {
        my ( $self, $opt, $args ) = @_;
        # you may ignore $opt, it's in the attributes anyway
        my $result = $self->blortex ? blortex() : blort();
        recheck($result) if $self->recheck;
        print $result;
    }
=head1 DESCRIPTION
This module marries L<App::Cmd|App::Cmd> with L<MooseX::Getopt|MooseX::Getopt>.
Use it like L<App::Cmd|App::Cmd> advises (especially see
L<App::Cmd::Tutorial|App::Cmd::Tutorial>), swapping
L<App::Cmd::Command|App::Cmd::Command> for
L<MooseX::App::Cmd::Command|MooseX::App::Cmd::Command>.
Then you can write your moose commands as Moose classes, with
L<MooseX::Getopt|MooseX::Getopt>
defining the options for you instead of C<opt_spec> returning a
L<Getopt::Long::Descriptive|Getopt::Long::Descriptive> spec.
=head1 METHODS
=head2 BUILD
After calling C<new> this method is automatically run, setting underlying
L<App::Cmd|App::Cmd> attributes as per its documentation.
=head1 SEE ALSO
=over
=item L<App::Cmd|App::Cmd>
=item L<App::Cmd::Tutorial|App::Cmd::Tutorial>
=item L<MooseX::Getopt|MooseX::Getopt>
=item L<MooseX::App::Cmd::Command|MooseX::App::Cmd::Command>
=back
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-App-Cmd>
(or L<bug-MooseX-App-Cmd@rt.cpan.org|mailto:bug-MooseX-App-Cmd@rt.cpan.org>).
There is also a mailing list available for users of this distribution, at
L<http://lists.perl.org/list/moose.html>.
There is also an irc channel available for users of this distribution, at
L<C<#moose> on C<irc.perl.org>|irc://irc.perl.org/#moose>.
=head1 AUTHOR
יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
=head1 CONTRIBUTORS
=for stopwords Mark Gardner Karen Etheridge Graham Knop Daisuke Maki Offer Kaye brunov Ken Crowell vovkasm Dann Guillermo Roditi Michael Joyce
=over 4
=item *
Mark Gardner <mjgardner@cpan.org>
=item *
Karen Etheridge <ether@cpan.org>
=item *
Graham Knop <haarg@haarg.org>
=item *
Daisuke Maki <dmaki@cpan.org>
=item *
Offer Kaye <offer.kaye@gmail.com>
=item *
brunov <vecchi.b@gmail.com>
=item *
Ken Crowell <oeuftete@gmail.com>
=item *
vovkasm <vovkasm@gmail.com>
=item *
Dann <techmemo@gmail.com>
=item *
Guillermo Roditi <groditi@gmail.com>
=item *
Michael Joyce <ubermichael@gmail.com>
=back
=head1 COPYRIGHT AND LICENCE
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.
=cut