MouseX::App::Cmd(3) Mashes up MouseX::Getopt and App::Cmd


version 0.27


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;


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.



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

  perldoc MooseX::App::Cmd


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 <>. 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 :)


  git clone git://



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.