| blib/lib/self.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 43 | 15 | 270 | if $NO_SELF |
| 44 | 30 | 240 | unless ref $op->gv eq 'B::PV' |
| 50 | 0 | 240 | if (substr($linestr, $offset, 3) eq 'sub') { } |
| 58 | 182 | elsif (index($linestr, 'sub') >= 0) { } | |
| 52 | 0 | 0 | if ($line =~ /^sub\s.*{ /x) |
| 53 | 0 | 0 | if (index($line, "{$code") < 0) |
| 67 | 4 | 54 | if ($linestr =~ /(sub.*?\n\s*{)/) |
| 69 | 2 | 2 | if ($pos + length($1) - 1 == $offset) |