| line |
true |
false |
branch |
|
18
|
11 |
54 |
unless defined $extracted |
|
39
|
0 |
7 |
unless (my $total = delete $$values{'total'}) |
|
47
|
12 |
17 |
if (defined(my $w = $$values{$k})) { } |
|
58
|
17 |
12 |
unless defined $_ |
|
75
|
78 |
60 |
if ($in =~ /^[a-zA-Z_]\w*/) |
|
76
|
40 |
38 |
unless $top |
|
80
|
54 |
44 |
$top ? : |
|
84
|
20 |
78 |
if (@kv > 1) { } |
|
|
59 |
19 |
elsif ($kv[0] =~ /^\d+$/) { } |
|
87
|
10 |
10 |
if ($pre =~ /^\s*$/ and $post =~ /^\s*$/) |
|
97
|
64 |
20 |
$first++ ? : |
|
113
|
77 |
23 |
unless ref $in |
|
117
|
18 |
5 |
if (ref $in eq 'HASH') { } |
|
|
5 |
0 |
elsif (ref $in eq 'ARRAY') { } |
|
119
|
2 |
64 |
if (ref $v) { } |
|
128
|
0 |
5 |
if (ref $$in[0] eq 'ARRAY') { } |
|
131
|
0 |
0 |
if (ref $v) { } |
|
143
|
0 |
21 |
if (ref $v) { } |