| blib/lib/My/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 2 | 2 | @_ ? : |
| 37 | 2 | 7 | s/^-// ? : |
| 57 | 5 | 2 | unless exists &{$pkg . '::NEW';} |
| 60 | 33 | 12 | if not exists &{$parent . '::' . $name;} or $name =~ /^(?:NEW|import)$/ |
| 63 | 2 | 10 | if (defined &{$pkg . '::' . $name;}) { } |
| 1 | 9 | elsif (exists &{$pkg . '::' . $name;}) { } | |
| 65 | 2 | 0 | if refaddr(\&{$pkg . '::' . $name;}) == refaddr(\&{$parent . '::' . $name;}) |
| 75 | 7 | 2 | unless exists &{$pkg . '::' . $name;} |
| 78 | 5 | 2 | unless &is_loaded($pkg) |