| blib/lib/MRO/Magic.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 81 | 2 | 6 | if (@_ == 1 and &reftype($_[0]) eq 'CODE') { } |
| 93 | 4 | 4 | if (&reftype($code) eq "SCALAR") |
| 94 | 1 | 3 | unless $code = $caller->can($$code) |
| 98 | 1 | 6 | if (do { no strict 'refs'; defined *{"${caller}::$metamethod";}{"CODE"} }) |
| 122 | 1 | 5 | if ($arg->{'overload'}) |
| 125 | 1 | 1 | if $ol eq "fallback" |
| 126 | 0 | 1 | if ref $copy{$ol} |
| 137 | 0 | 1 | unless eval "\n package $caller;\n use overload %copy;\n 1;\n " |
| 159 | 9 | 137 | if $_[2] ~~ $passthru |
| 161 | 13 | 124 | if substr($_[2], 0, 1) eq "(" |