| line |
true |
false |
branch |
|
14
|
5 |
1 |
unless (defined $result) |
|
15
|
5 |
0 |
$wantarray ? : |
|
20
|
1 |
10 |
unless defined $n |
|
21
|
1 |
1 |
if $alias and $alias->{$n} |
|
22
|
4 |
6 |
unless defined $v |
|
23
|
3 |
7 |
if (ref $result eq 'HASH') { } |
|
29
|
5 |
1 |
$wantarray && ref $result ne 'HASH' ? : |
|
36
|
0 |
3 |
if (defined $hash) { } |
|
44
|
3 |
0 |
if (not $explicit and wantarray) { } |
|
46
|
2 |
1 |
%$hash ? : |
|
57
|
0 |
1 |
if (ref $pack) { } |
|
67
|
1 |
0 |
if (my $sub = $app->can("cmd_$cmd")) { } |
|
|
0 |
0 |
elsif ($sub = $app->can($cmd)) { } |
|
74
|
0 |
1 |
if (my $sub = $app->can('DESTROY')) |
|
81
|
0 |
0 |
if (not @res or @res == 1 and not $res[0]) { } |
|
|
0 |
0 |
elsif (@res == 1 and defined $res[0] and $res[0] eq 1) { } |
|
89
|
0 |
0 |
do {
my $sub = $res->can('get_columns')
} ? : |
|
|
0 |
0 |
do {
not ref $res
} ? : |
|
|
0 |
0 |
defined $res ? : |
|
97
|
0 |
0 |
if $cnt++ |