| line |
true |
false |
branch |
|
57
|
0 |
22 |
if @_ % 1 |
|
62
|
1 |
21 |
if $on_leak eq 'ignore' |
|
78
|
3 |
17 |
$on_leak eq 'warn' ? : |
|
|
1 |
20 |
$on_leak eq 'die' ? : |
|
80
|
0 |
21 |
unless 'CODE' eq ref $$self{'on_leak'} |
|
85
|
0 |
21 |
if keys %opt |
|
125
|
1 |
5 |
'ARRAY' eq ref $filter ? : |
|
126
|
6 |
1 |
unless (ref $elt) |
|
127
|
3 |
18 |
'*' eq $_ ? : |
|
132
|
7 |
0 |
if ('Regexp' eq ref $elt) { } |
|
|
0 |
0 |
elsif ('CODE' eq ref $elt) { } |
|
146
|
10 |
14 |
if &$m() |
|
157
|
2 |
4 |
$invert ? : |
|
173
|
19 |
21 |
if $$self{'done'}++ |
|
181
|
60 |
97 |
if $seen{$class}++ |
|
184
|
52 |
45 |
if $before != $after |
|
188
|
3 |
18 |
unless @keep |
|
190
|
4 |
14 |
if defined $$self{'only'} |
|
192
|
0 |
18 |
unless @keep |
|
194
|
2 |
16 |
if defined $$self{'exclude'} |
|
196
|
0 |
18 |
unless @keep |
|
198
|
6 |
12 |
if (my $exp = $$self{'expect'}) |
|
201
|
5 |
19 |
if (defined(my $range = $$exp{$pkg})) |
|
202
|
2 |
3 |
unless 'ARRAY' eq ref $range |
|
204
|
3 |
2 |
if $delta >= $$range[0] and $delta <= $$range[1] |
|
210
|
0 |
18 |
unless @keep |