| line |
true |
false |
branch |
|
57
|
8 |
78 |
if ($help) |
|
63
|
77 |
6 |
if $instance |
|
68
|
6 |
0 |
if $instance |
|
82
|
47 |
49 |
if $package->can('new') |
|
85
|
20 |
29 |
unless eval "require $package" |
|
87
|
29 |
20 |
unless $error |
|
90
|
17 |
3 |
if $error =~ /Can't locate $file/ |
|
94
|
7 |
6 |
if ($command eq 'Help') |
|
113
|
78 |
8 |
unless ($class = ref $self) |
|
118
|
29 |
57 |
unless (grep {$_ ne $class;} @namespaces) |
|
128
|
27 |
55 |
if ($command->isa('CLI::Dispatch::Help') and @ARGV) |
|
132
|
3 |
79 |
if $command->can('check') |
|
140
|
0 |
9 |
unless ($package->can('new')) |
|
142
|
0 |
0 |
unless eval "require $package" |
|
144
|
0 |
0 |
if $error |
|
148
|
9 |
0 |
unless ($class = ref $self) |
|
155
|
1 |
8 |
if ($global{'help'}) |
|
164
|
0 |
9 |
if $command->can('check') |