| line |
true |
false |
branch |
|
12
|
3 |
0 |
if ("$]" >= 5.01) { } |
|
19
|
0 |
0 |
unless eval qq[ sub _linear_isa(\$;\$) {\n my \$class = shift;\n my \@check = (\$class);\n my \@lin;\n\n my %found;\n while (defined(my \$check = shift \@check)) {\n push \@lin, \$check;\n no strict 'refs';\n unshift \@check, grep !\$found{\$_}++, \@{"\$check\\::ISA"};\n }\n\n return \\\@lin;\n }\n] |
|
40
|
3 |
0 |
if (eval {
do {
require Sub::Util;
defined &Sub::Util::subname
}
}) { } |
|
51
|
0 |
0 |
unless ref $coderef |
|
53
|
0 |
0 |
unless $cv->isa('B::CV') |
|
54
|
0 |
0 |
if $cv->GV->isa('B::SPECIAL') |
|
63
|
7 |
0 |
$package->can('DOES') ? : |
|
|
0 |
7 |
$package->can('does') ? : |
|
71
|
0 |
7 |
unless my $code_stash = _stash_name($code) |
|
73
|
0 |
7 |
unless /\A\(/ or $code_stash eq $package or $code_stash eq 'constant' |
|
80
|
31 |
0 |
if defined $entry and ref $entry ne 'HASH' |
|
87
|
2 |
6 |
if ($INC{'Moo/Role.pm'} and 'Moo::Role'->is_role($package)) { } |
|
|
2 |
4 |
elsif ($INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role($package)) { } |
|
|
0 |
4 |
elsif ($INC{'Class/MOP.pm'} and my $meta = Class::MOP::class_of($package)) { } |
|
95
|
0 |
0 |
if ($meta->can('get_all_method_names')) { } |
|
|
0 |
0 |
elsif ($meta->can('get_method_list')) { } |
|
|
0 |
0 |
elsif ($meta->can('list_all_symbols')) { } |
|
109
|
0 |
4 |
if ($INC{'Moo.pm'}) |
|
110
|
0 |
0 |
'Moo'->can('is_class') ? : |
|
115
|
0 |
7 |
if ($moo_method and 'Moo'->$moo_method($isa)) { } |