| blib/lib/MRO/Magic.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 2 | 6 | if (@_ == 1 and reftype($_[0]) eq 'CODE') { } |
| 32 | 4 | 4 | if (reftype $code eq 'SCALAR') |
| 33 | 1 | 3 | unless $code = $caller->can($$code) |
| 37 | 1 | 6 | if (do { no strict 'refs'; defined *{"${caller}::$metamethod";}{'CODE'} }) |
| 61 | 1 | 5 | if ($$arg{'overload'}) |
| 64 | 1 | 1 | if $ol eq 'fallback' |
| 65 | 0 | 1 | if ref $copy{$ol} |
| 76 | 0 | 1 | unless eval "\n package $caller;\n use overload %copy;\n 1;\n " |
| 98 | 9 | 129 | if $_[2] ~~ $passthru |
| 100 | 13 | 116 | if substr($_[2], 0, 1) eq '(' |