line |
true |
false |
branch |
25
|
1 |
10 |
exists $args{-'cleanee'} ? : |
28
|
6 |
5 |
if (exists $args{-'also'}) |
29
|
2 |
4 |
if (ref $args{-'also'} and reftype($args{-'also'}) eq reftype([])) { } |
42
|
2 |
0 |
reftype $also eq reftype(qr//) ? : |
|
2 |
2 |
reftype $also eq reftype(sub {
}
) ? : |
|
3 |
4 |
!ref($also) ? : |
|
0 |
7 |
!$also ? : |
48
|
9 |
55 |
if first sub {
&$_($_[0]);
}
, @also_tests |
62
|
1 |
83 |
defined $def ? : |
72
|
0 |
11 |
if ($class_of_cm or $class_of_mu) |
79
|
0 |
0 |
if (blessed $meta and $meta->can('get_all_method_names')) |
85
|
9 |
55 |
if &$run_test($sym) |
87
|
27 |
37 |
unless exists &{$st . $sym;} |
88
|
0 |
37 |
if $keep{$sym} |
91
|
24 |
13 |
if $pkg eq $cleanee |
92
|
1 |
12 |
if $pkg eq 'overload' and $name eq 'nil' |