package Test06::CommandB;
use Moose;
#use MooseX::App::Command;
extends qw(Test06);
has 'email' => (
isa => 'Str',
is => 'rw',
);
sub run {
my ($self) = @_;
warn $self;
}
1;
package Test06::CommandB;
use Moose;
#use MooseX::App::Command;
extends qw(Test06);
has 'email' => (
isa => 'Str',
is => 'rw',
);
sub run {
my ($self) = @_;
warn $self;
}
1;