| blib/lib/UNIVERSAL/ref.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 1 | 0 | 'UNIVERSAL'->can('DOES') ? : |
| 40 | 2 | 4 | if ($caller_class->$DOES($class)) |
| 51 | 10 | 3 | unless $obj_class->$DOES($hooked_class) |
| 56 | 1 | 2 | if $obj_class->$DOES($caller_class) |