| 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' ? : |
|
81
|
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) |
|
128
|
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 |
|
191
|
4 |
14 |
if defined $self->{'only'} |
|
192
|
0 |
18 |
unless @keep |
|
195
|
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 |