Prepare permute tests
Maros Kollar
9 years ago
| 22 | 22 |
sub run {
|
| 23 | 23 |
my ($self) = @_;
|
| 24 | 24 |
print "NEW WITH A";
|
| 25 | |
$self->initialize_command_class('Test06::CommandB')->run;
|
|
25 |
ref($self)->initialize_command_class('Test06::CommandB')->run;
|
| 26 | 26 |
#$self->initialize_command_class('Test06::CommandB');
|
| 27 | 27 |
}
|
| 28 | 28 |
|
|
0 |
package Test06::CommandD;
|
|
1 |
|
|
2 |
use Moose;
|
|
3 |
use MooseX::App::Command;
|
|
4 |
extends qw(Test06);
|
|
5 |
|
|
6 |
option 'list' => (
|
|
7 |
isa => 'ArrayRef[Str]',
|
|
8 |
is => 'rw',
|
|
9 |
);
|
|
10 |
|
|
11 |
option 'hash' => (
|
|
12 |
isa => 'HashRef[Str]',
|
|
13 |
is => 'rw',
|
|
14 |
);
|
|
15 |
|
|
16 |
sub run {
|
|
17 |
my ($self) = @_;
|
|
18 |
use Data::Dumper;
|
|
19 |
{
|
|
20 |
local $Data::Dumper::Maxdepth = 2;
|
|
21 |
warn __FILE__.':line'.__LINE__.':'.Dumper($self);
|
|
22 |
}
|
|
23 |
}
|
|
24 |
|
|
25 |
1;⏎
|
| 8 | 8 |
};
|
| 9 | 9 |
app_command_register 'command-c' => 'Test03::ExtraCommand';
|
| 10 | 10 |
|
|
11 |
app_permute 1;
|
|
12 |
|
| 11 | 13 |
option 'some_option' => (
|
| 12 | 14 |
is => 'rw',
|
| 13 | 15 |
isa => 'Bool',
|