line |
true |
false |
branch |
25
|
3 |
2 |
if $arg eq 'isa' |
26
|
2 |
3 |
if $arg eq 'verbose' |
35
|
4 |
611 |
if $_recursing |
44
|
4 |
607 |
unless defined $invocant |
45
|
587 |
20 |
if blessed $invocant |
46
|
11 |
9 |
if ref $invocant |
47
|
1 |
8 |
unless $invocant |
53
|
1 |
4 |
if $verbose_warning |
62
|
595 |
0 |
if (my $override = eval {
do {
$_[0]->can('isa')
}
}) |
64
|
16 |
579 |
unless ($override == \&UNIVERSAL::isa) |
72
|
4 |
575 |
if $verbose_warning |
78
|
5 |
6 |
if $verbose_warning |
86
|
6 |
20 |
$extra ? : |
88
|
24 |
2 |
if (warnings::enabled()) |
91
|
0 |
24 |
if ((caller 3)[3] || '') =~ /::isa$/ |
93
|
0 |
24 |
if ((caller 3)[0] || '') =~ /^Test::Builder/ |
94
|
0 |
24 |
if ((caller 2)[0] || '') =~ /^Test::Stream/ |