| blib/lib/Class/DOES.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 4 | 3 | if (warnings::enabled()) |
| 40 | 0 | 403 | if defined &mro::get_linear_isa |
| 55 | 2 | 20 | if $meth = $pkg->can('DOES') and $meth != \&DOES and $meth != ('UNIVERSAL'->can('DOES') || 0) |
| 60 | 2 | 20 | if $meth = $pkg->can('isa') and $meth != 'UNIVERSAL'->can('isa') |
| 76 | 46 | 42 | unless defined $class |
| 84 | 34 | 254 | if (exists ${"${_}::DOES";}{$role}) |
| 86 | 3 | 31 | unless ($rv) |