| blib/lib/UNIVERSAL/DOES.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 18 | 61.1 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 0 | if (@_ != 2) |
| 27 | 0 | 0 | if eval { do { $invocant->isa($role) } } |
| 31 | 0 | 0 | if ($e) |
| 50 | 0 | 38 | if (@_ != 2) |
| 55 | 2 | 36 | unless $thing and $role |
| 59 | 22 | 14 | if eval { do { $thing->DOES($role) } } |
| 63 | 6 | 8 | if ($e) { } |
| 7 | 1 | elsif (ref $thing) { } | |
| 67 | 1 | 6 | unless my $operator = $operator_of{$role} |