| line |
true |
false |
branch |
|
59
|
0 |
2933 |
unless defined $_[1]
|
|
64
|
4 |
2929 |
if ($self->{'pending_length'} > $self->{'write_threshold'})
|
|
85
|
0 |
9 |
unless print $fh $self->{'buffer'}
|
|
87
|
9 |
0 |
if (my $th = $self->treehash)
|
|
100
|
0 |
5 |
unless $self->{'total_commited_length'} == $self->{'total_length'}
|
|
101
|
3 |
2 |
$self->{'total_length'} && $self->{'total_length'} == $self->{'size'} ? :
|
|
139
|
0 |
0 |
unless defined $self->{'filename'}
|
|
140
|
0 |
0 |
unless defined $self->{'tempfile'}
|
|
141
|
0 |
0 |
unless defined $self->{'position'}
|
|
157
|
0 |
0 |
if ($self->{'pending_length'})
|
|
158
|
0 |
0 |
unless &open_file(my $fh, $self->{'tempfile'}, 'mode', '+<', 'binary', 1)
|
|
159
|
0 |
0 |
unless flock $fh, 2
|
|
162
|
0 |
0 |
unless seek $fh, $self->{'position'} + $self->{'incr_position'}, 0
|
|
164
|
0 |
0 |
unless close $fh
|
|
201
|
0 |
12 |
unless defined $self->{'tempfile'}
|
|
208
|
0 |
5 |
unless &open_file($self->{'fh'}, $self->{'tempfile'}, 'mode', '+<', 'binary', 1)
|
|
219
|
9 |
0 |
if ($self->{'pending_length'})
|
|
228
|
0 |
5 |
unless close $self->{'fh'}
|
|
264
|
0 |
0 |
unless defined $_[1]
|
|
273
|
0 |
0 |
$self->{'total_length'} && $self->{'total_length'} == $self->{'size'} ? :
|