| inc/UNIVERSAL/can.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 0 | if $import eq '-always_warn' |
| 30 | 0 | 0 | if $import eq 'can' |
| 43 | 143966 | 152957 | if $UNIVERSAL::can::recursing or defined $caller and defined $_[0] and eval { do { local $UNIVERSAL::can::recursing = 1; $caller->isa($_[0]) } } |
| 46 | 0 | 152957 | unless $_[0]->$orig('can') |
| 49 | 0 | 152957 | unless $can |
| 52 | 152732 | 225 | if $can == \&UNIVERSAL::can |
| 64 | 225 | 0 | if ($UNIVERSAL::can::always_warn or warnings::enabled()) |
| 67 | 0 | 225 | unless $calling_sub =~ /::can$/ |