| line |
true |
false |
branch |
|
28
|
1 |
2 |
if $import eq '-always_warn' |
|
30
|
2 |
1 |
if $import eq 'can' |
|
43
|
12 |
55657 |
if $UNIVERSAL::can::recursing or defined $caller and defined $_[0] and eval {
do {
local $UNIVERSAL::can::recursing = 1;
'warnings'->unimport('UNIVERSAL::isa') if $INC{'UNIVERSAL::isa'};
$caller->isa(blessed($_[0]) || $_[0])
}
} |
|
44
|
0 |
55660 |
if $INC{'UNIVERSAL::isa'} |
|
49
|
6 |
55651 |
unless $_[0]->$orig('can') |
|
52
|
6 |
55651 |
unless $can |
|
55
|
55644 |
7 |
if $can == \&UNIVERSAL::can |
|
67
|
3 |
4 |
if ($UNIVERSAL::can::always_warn or warnings::enabled()) |
|
70
|
3 |
0 |
unless $calling_sub =~ /::can$/ |