| line |
true |
false |
branch |
|
53
|
0 |
30 |
if (@$errors)
|
|
59
|
0 |
30 |
unless CORE::open my $fh, ">", $filename
|
|
73
|
0 |
30 |
unless CORE::close $_[0]
|
|
75
|
1 |
30 |
ref $handle eq 'GLOB' ? :
|
|
78
|
29 |
2 |
if (ref $handle eq "CODE")
|
|
84
|
0 |
29 |
if @items
|
|
88
|
1 |
30 |
if ref $handle eq "GLOB"
|
|
95
|
30 |
1 |
if (my $releaser = delete $track->{'current_fh_releaser'})
|
|
115
|
11 |
7 |
unless my $fh = $track->{'current_fh'}
|
|
130
|
0 |
76 |
$iterator ? :
|
|
131
|
37 |
39 |
unless defined $record
|
|
138
|
8 |
31 |
if $track->{'records'}
|
|
147
|
24 |
15 |
if $checker and not &$checker($self)
|
|
156
|
18 |
91 |
unless defined $data
|
|
157
|
0 |
91 |
if ref $data
|
|
160
|
0 |
91 |
unless ref $fh
|
|
161
|
0 |
91 |
unless print {$fh;} $data
|
|
174
|
0 |
28 |
unless my $policy = $self->policy
|
|
177
|
28 |
0 |
if (my $mr = $policy->{'records_threshold'})
|
|
178
|
24 |
4 |
if $track->{'records'} >= $mr
|
|
180
|
0 |
4 |
if (my $cpf = $policy->{'characters_threshold'})
|
|
181
|
0 |
0 |
if $track->{'chars_file'} >= $cpf
|
|
190
|
0 |
37 |
if (my $method = $self->can("check"))
|
|
195
|
10 |
27 |
unless my $policy = $self->policy
|