| line |
true |
false |
branch |
|
26
|
3 |
2 |
if $arg eq 'isa' |
|
27
|
2 |
3 |
if $arg eq 'verbose' |
|
36
|
4 |
649 |
if $_recursing |
|
45
|
4 |
645 |
unless defined $invocant |
|
46
|
622 |
23 |
if &Scalar::Util::blessed($invocant) |
|
47
|
11 |
12 |
if ref $invocant |
|
48
|
1 |
11 |
unless $invocant |
|
54
|
1 |
4 |
if $verbose_warning |
|
63
|
633 |
0 |
if (my $override = eval {
do {
$_[0]->can('isa')
}
}) |
|
65
|
16 |
617 |
unless ($override == \&UNIVERSAL::isa) |
|
73
|
6 |
611 |
if $verbose_warning |
|
79
|
5 |
6 |
if $verbose_warning |
|
87
|
6 |
22 |
$extra ? : |
|
89
|
25 |
3 |
if (warnings::enabled()) |
|
92
|
0 |
25 |
if ((caller 3)[3] || '') =~ /::isa$/ |
|
94
|
1 |
24 |
if ((caller 3)[0] || '') =~ /^Test::Builder/ |
|
95
|
0 |
24 |
if ((caller 2)[0] || '') =~ /^Test::Stream/ |