| line |
true |
false |
branch |
|
23
|
8 |
5 |
unless ($ENV{'PERL_SUB_IDENTIFY_PP'}) |
|
24
|
8 |
0 |
if (eval {
do {
require XSLoader;
XSLoader::load('Sub::Identify', $VERSION);
1
}
}) { } |
|
34
|
0 |
0 |
if $@ and not $@ =~ /object version|loadable object/ |
|
38
|
5 |
8 |
if ($IsPurePerl) |
|
42
|
0 |
32 |
unless ref $coderef |
|
44
|
0 |
32 |
unless $cv->isa('B::CV') |
|
46
|
0 |
32 |
if $cv->GV->isa('B::SPECIAL') |
|
52
|
0 |
4 |
unless ref $coderef |
|
54
|
2 |
2 |
unless $cv->isa('B::CV') and $cv->START->isa('B::COP') |
|
60
|
5 |
8 |
if ($IsPurePerl or $] < 5.016) |
|
64
|
0 |
5 |
unless ref $coderef |
|
66
|
0 |
5 |
unless $cv->isa('B::CV') |
|
68
|
2 |
3 |
unless defined $p and $p eq '' |