| line |
true |
false |
branch |
|
43
|
14 |
337 |
if $NO_SELF |
|
44
|
34 |
303 |
unless ref $op->gv eq 'B::PV' |
|
55
|
88 |
215 |
if (substr($linestr, $offset, 1) eq '{') { } |
|
|
0 |
215 |
elsif (substr($linestr, $offset, 3) eq 'sub') { } |
|
|
57 |
158 |
elsif (index($linestr, 'sub') >= 0) { } |
|
56
|
57 |
31 |
if (substr($linestr, 0, $offset) =~ /sub\s\S+\s*\z/x) |
|
57
|
49 |
8 |
if (index($line, "{$code") < 0) |
|
64
|
0 |
0 |
if ($line =~ /^sub\s.*{ /x) |
|
65
|
0 |
0 |
if (index($line, "{$code") < 0) |
|
79
|
2 |
55 |
if ($linestr =~ /(sub.*?\n\s*{)/) |
|
81
|
0 |
2 |
if ($pos + length($1) - 1 == $offset) |