| line |
true |
false |
branch |
|
25
|
0 |
3 |
if (&Scalar::Does::does($p, 'CODE')) |
|
26
|
1 |
2 |
if (&Scalar::Does::does($p, 'HASH')) |
|
27
|
1 |
2 |
if (&Scalar::Does::does($p, 'Regexp')) |
|
28
|
1 |
2 |
unless (ref $p) |
|
30
|
1 |
2 |
unless $coderef |
|
95
|
0 |
0 |
if B::svref_2object($_)->STASH->NAME eq $into |
|
149
|
0 |
0 |
if @_ == 1 |
|
150
|
0 |
0 |
unless &blessed($_[0]) |
|
156
|
0 |
171 |
if @_ == 1 |
|
161
|
96 |
75 |
if (my $test = $_ROLES{$role}) |
|
166
|
18 |
57 |
if (&blessed($role) and $role->can('check')) |
|
171
|
12 |
45 |
if (&blessed($thing) and $thing->can('DOES')) { } |
|
|
12 |
58 |
elsif (UNIVERSAL::can($thing, 'can') and $thing->can('DOES')) { } |
|
173
|
5 |
7 |
if $thing->DOES($role) |
|
178
|
3 |
9 |
if $class->DOES($role) |
|
187
|
1 |
2 |
unless my $role = $$arg{-'role'} |