1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
package My::DemoNestedSubcommands;
use base qw( CLI::Framework );
use strict;
use warnings;
sub usage_text {
q{
Demo app to test nested subcommands...
}
}
sub command_map {
tree => 'CLI::Framework::Command::Tree',
list => 'CLI::Framework::Command::List',
command0 => 'My::DemoNestedSubcommands::Command0',
command0_0 => 'My::DemoNestedSubcommands::Command0::Command0_0',
command0_1 => 'My::DemoNestedSubcommands::Command0::Command0_1',
command0_1_0 => 'My::DemoNestedSubcommands::Command0::Command0_1::Command0_1_0',
command1 => 'My::DemoNestedSubcommands::Command1',
command1_0 => 'My::DemoNestedSubcommands::Command1::Command1_0',
command1_1 => 'My::DemoNestedSubcommands::Command1::Command1_1',
command1_1_0 => 'My::DemoNestedSubcommands::Command1::Command1_1::Command1_1_0',
}
#-------
1;
__END__
=pod
=head1 PURPOSE
=cut
|
