package Test06::CommandA;
use Moose;
use MooseX::App::Command;
extends qw(Test06);
use Moose::Util::TypeConstraints;
subtype 'Test06::local2'
=> as 'Str'
=> where { $_ =~ /^[aA]/ };
#=> message { "Must start with an 'A'" };
no Moose::Util::TypeConstraints;
option 'command_local2' => (
isa => 'Test06::local2',
is => 'rw',
documentation => q[Verylongwordwithoutwhitespacestotestiftextformatingworksproperly],
cmd_env => 'LOCAL2',
);
sub run {
my ($self) = @_;
print "NEW WITH A";
$self->initialize_command_class('Test06::CommandB')->run;
#$self->initialize_command_class('Test06::CommandB');
}
1;