NAME

MouseX::App::Cmd - Mashes up MouseX::Getopt and App::Cmd

VERSION

version 0.27

SYNOPSIS

package YourApp::Cmd;
use Mouse;

extends qw(MouseX::App::Cmd);


package YourApp::Cmd::Command::blort;
use Mouse;

extends qw(MouseX::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;
}

DESCRIPTION

This module marries App::Cmd with MouseX::Getopt.

It extends MooseX::App::Cmd which uses Any::Moose to work with either Moose or Mouse. Consult those modules' documentation for full usage information.

SEE ALSO

MooseX::App::Cmd
App::Cmd
App::Cmd::Tutorial
MouseX::Getopt
MouseX::App::Cmd::Command

SUPPORT

Perldoc

You can find documentation for this module with the perldoc command.

perldoc MooseX::App::Cmd

Websites

The following websites have more information about this module, and may be of help to you. As always, in addition to those websites please use your favorite search engine to discover more resources.

Bugs / Feature Requests

Please report any bugs or feature requests through the web interface at https://github.com/mjgardner/moosex-app-cmd/issues. You will be automatically notified of any progress on the request by the system.

Source Code

The code is open to the world, and available for you to hack on. Please feel free to browse it and play with it, or whatever. If you want to contribute patches, please send me a diff or prod me to pull from your repository :)

https://github.com/mjgardner/moosex-app-cmd

git clone git://github.com/mjgardner/moosex-app-cmd.git

AUTHORS

  • Yuval Kogman <nothingmuch@woobling.org>

  • Guillermo Roditi <groditi@cpan.org>

  • Daisuke Maki <dmaki@cpan.org>

  • Vladimir Timofeev <vovkasm@gmail.com>

  • Bruno Vecchi <brunov@cpan.org>

  • Offer Kaye <offerk@cpan.org>

  • Mark Gardner <mjgardner@cpan.org>

  • Yanick Champoux <yanick+cpan@babyl.dyndns.org>

  • Dann <techmemo@gmail.com>

  • Ken Crowell <oeuftete@gmail.com>

  • Michael Joyce <ubermichael@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Infinity Interactive, Yuval Kogman.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.