| blib/lib/self/implicit.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 16 | 43.7 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 23 | if $NO_SELF |
| 31 | 3 | 20 | unless ref $op->gv eq 'B::PV' |
| 38 | 0 | 20 | if (substr($linestr, $offset, 3) eq 'sub') { } |
| 4 | 16 | elsif (index($linestr, 'sub') >= 0) { } | |
| 40 | 0 | 0 | if ($line =~ /^sub\s.*{ /x) |
| 41 | 0 | 0 | if (index($line, "{$code") < 0) |
| 55 | 0 | 4 | if ($linestr =~ /(sub.*?\n\s*{)/) |
| 57 | 0 | 0 | if ($pos + length($1) - 1 == $offset) |