| line |
true |
false |
branch |
|
14
|
9 |
0 |
if (eval {
do {
require Sub::Util
}
} and defined &Sub::Util::subname) { } |
|
21
|
0 |
0 |
unless ref $coderef |
|
24
|
0 |
0 |
unless $cv->isa('B::CV') |
|
28
|
0 |
0 |
if $gv->isa('B::SPECIAL') |
|
30
|
0 |
0 |
$stash->isa('B::SPECIAL') ? : |
|
170
|
2 |
8 |
if ref $i eq 'CODE' |
|
171
|
3 |
5 |
if ref $i eq 'Regexp' |
|
181
|
1 |
16 |
exists $args{'-cleanee'} ? : |
|
186
|
2 |
4 |
ref $args{'-also'} eq 'ARRAY' ? : |
|
|
6 |
11 |
exists $args{'-also'} ? : |
|
192
|
1 |
2 |
ref $args{'-except'} eq 'ARRAY' ? : |
|
|
3 |
14 |
exists $args{'-except'} ? : |
|
203
|
82 |
3 |
if not &first(sub {
&$runtest($_, $method);
}
, @except) |
|
212
|
0 |
17 |
if (defined &Class::MOP::class_of and my $meta = Class::MOP::class_of($package)) { } |
|
216
|
0 |
0 |
if $meta->isa('Moose::Meta::Role') and 'Moose'->VERSION < 0.9 |
|
218
|
0 |
0 |
unless $_[0] =~ /^\(/ |
|
221
|
14 |
0 |
$package->can('DOES') ? : |
|
|
3 |
14 |
$package->can('does') ? : |
|
225
|
5 |
77 |
if $_[0] =~ /^\(/ |
|
228
|
39 |
38 |
if $code_stash eq $package |
|
229
|
0 |
38 |
if $code_stash eq 'constant' |
|
231
|
4 |
34 |
if $does and eval {
do {
$package->$does($code_stash)
}
} |