| line |
true |
false |
branch |
|
44
|
0 |
7 |
unless my $object = $target_pkg->new |
|
66
|
2 |
8 |
if (-d $subcommand_dir) |
|
71
|
0 |
2 |
unless opendir $dh, $subcommand_dir |
|
74
|
5 |
3 |
unless substr($subcommand, -3) =~ s/\.pm// |
|
78
|
3 |
0 |
if ($subcommand_pkg->isa(ref $parent_command_object)) |
|
79
|
0 |
3 |
unless my $subcommand_obj = $subcommand_pkg->new |
|
106
|
9 |
4 |
unless ref $descendant_names eq 'ARRAY' |
|
110
|
3 |
5 |
if $parent_cmd_obj->package_is_registered($descendant_cmd) |
|
119
|
3 |
2 |
if ($direct_parent_of_descendant eq ref $parent_cmd_obj) |
|
151
|
0 |
0 |
if (my $subcommand = $cmd->registered_subcommand_object($subcommand_name)) { } |
|
169
|
4 |
1 |
unless $input |
|
172
|
1 |
0 |
unless %aliases |
|
194
|
0 |
5 |
if (catch my $e) |
|
201
|
0 |
5 |
if (my $subcommand = $cmd->registered_subcommand_object($first_arg)) { } |
|
208
|
0 |
0 |
if (catch my $e) |
|
209
|
0 |
0 |
if ($e->isa('CLI::Framework::Exception')) |
|
229
|
1 |
4 |
if defined $first_arg |
|
234
|
0 |
5 |
if (catch my $e) |
|
235
|
0 |
0 |
if ($e->isa('CLI::Framework::Exception')) |
|
253
|
4 |
13 |
unless $subcommand_name |
|
261
|
0 |
6 |
unless $subcommand_obj and $subcommand_obj->isa('CLI::Framework::Command') |