| line |
true |
false |
branch |
|
14
|
1 |
27 |
unless $$self{'code'} = $args{'code'} |
|
34
|
25 |
9 |
unless defined $code |
|
35
|
8 |
26 |
if ($exact{$code}) |
|
40
|
2 |
24 |
if ($code =~ /^(\w+)\(\)$/) |
|
42
|
1 |
1 |
if ($exact{$sub}) |
|
48
|
1 |
24 |
if ($code =~ /^'' \s* \.$/x) |
|
53
|
1 |
23 |
if ($code =~ /^0 \s* \+$/x) |
|
60
|
3 |
20 |
if ($code =~ m[^$NUMBER \s* [/*+-] \s* $NUMBER$]x) |
|
66
|
3 |
17 |
if ($code =~ /^$NUMBER$/) |
|
71
|
1 |
16 |
if ($code =~ /^\d+(_\d\d\d)+$/) |
|
76
|
2 |
14 |
if ($code =~ /\$(\w+)\[(.*?)\]/) |
|
77
|
1 |
1 |
if ($1 eq '_') { } |
|
85
|
1 |
13 |
if ($code =~ /^\$(\w+) { \$(\w+) } /x) |
|
91
|
1 |
12 |
if ($code =~ /^\$\$(\w+)$/) |
|
96
|
1 |
11 |
if ($code =~ /^\$(\w+) \s* \|\|= \s* \$(\w+)$/x) |
|
102
|
1 |
10 |
if ($code =~ /^\$(\w+) -> (\w+)/x) |
|
136
|
2 |
2 |
unless ($$self{'ppi_document'}) |