package Test::MyCmd::Command::bark; use Moose; extends qw(MooseX::App::Cmd::Command); =head1 NAME Test::MyCmd::Command::bark - required field is used =cut has wow => ( isa => "Str", is => "ro", required => 1, documentation => "required option field", ); sub execute { my ($self, $opt, $arg) =@_; die "my dog name barks " . $self->wow . "\n"; } 1;