| line |
true |
false |
branch |
|
38
|
10 |
5 |
if (@$args and not $args->[0] =~ /^--/) |
|
41
|
4 |
6 |
if ($action and @$args and not $args->[0] =~ /^--/) |
|
46
|
0 |
15 |
unless (defined $action) |
|
47
|
0 |
0 |
if $cli_args{'man'} |
|
48
|
0 |
0 |
if $cli_args{'help'} |
|
51
|
0 |
15 |
unless defined $action |
|
55
|
2 |
13 |
unless ($handler) |
|
58
|
2 |
0 |
if (not defined $subaction) { } |
|
66
|
1 |
12 |
if ($handler and defined $subaction and not $handler->can("subaction")) |
|
70
|
2 |
11 |
if $cli_args{'man'} |
|
71
|
3 |
8 |
if $cli_args{'help'} |
|
113
|
0 |
15 |
$class->can('exclude_search_path') ? : |
|
121
|
2 |
13 |
unless @PLUGINS |
|
123
|
2 |
13 |
unless @found |
|
125
|
10 |
3 |
if @found == 1 |