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