line |
true |
false |
branch |
98
|
22 |
132 |
unless defined $args{'file'} and length $args{'file'} |
100
|
132 |
22 |
if (defined $self) { } |
106
|
0 |
132 |
if ($self->{'ro'}) { } |
107
|
0 |
0 |
unless $self->_oldFile |
109
|
44 |
88 |
unless $self->_newFile or $self->_oldFile |
137
|
132 |
0 |
if (not $self->{'readOnly'}) { } |
143
|
99 |
33 |
if (defined $header) |
147
|
77 |
22 |
if ($rv) |
153
|
77 |
0 |
if $rv = $header->allocate |
154
|
77 |
0 |
if $rv |
188
|
22 |
33 |
if (defined $header) |
192
|
0 |
22 |
$self->{'readOnly'} ? : |
193
|
22 |
0 |
if ($rv) |
200
|
11 |
11 |
if ($rv) |
241
|
8 |
0 |
if (pflock($file, 1)) |
242
|
8 |
0 |
if ($header->readSig and $header->readStreams) { } |
272
|
2948 |
0 |
if (defined $sname and length $sname) |
275
|
8 |
2940 |
unless $header->validateBlocks |
278
|
34 |
2914 |
unless (exists $self->{'streams'}{$sname}) |
280
|
34 |
0 |
if (exists $streams{$sname}) { } |
285
|
34 |
0 |
if (pflock($file, 1)) |
286
|
34 |
0 |
if $stream->readSig and $stream->readBATs |
291
|
0 |
34 |
unless (exists $self->{'streams'}{$sname}) |
305
|
2948 |
0 |
exists $self->{'streams'}{$sname} ? : |
309
|
2948 |
0 |
if (defined $stream) |
310
|
0 |
2948 |
unless ($stream->validateEOS) |
311
|
0 |
0 |
unless ($stream->readSig and $stream->readBATs) |
346
|
1215 |
0 |
if (defined $stream) |
351
|
1215 |
0 |
if ($seq <= $#bats) |
354
|
1215 |
0 |
if (pflock($file, 1)) |
355
|
1215 |
0 |
if defined $bat and $bat->readSig and $bat->readData |
361
|
0 |
1215 |
unless $rv |
391
|
0 |
22 |
unless ($rv) |
425
|
0 |
22 |
unless ($rv) |
431
|
22 |
0 |
if ($rv) |
433
|
0 |
22 |
unless $self->_chkData($_) |
463
|
11 |
33 |
unless ($rv) |
470
|
33 |
11 |
if ($rv) |
474
|
0 |
22 |
unless $self->_chkBAT($_, $sname, $i) |
518
|
22 |
0 |
if (pflock($file, 1)) { } |
521
|
22 |
0 |
if ($header->readSig and $header->readStreams) { } |
526
|
11 |
33 |
unless $self->_chkStream($streams{$_}, $_) |
542
|
11 |
11 |
if ($rv) { } |
572
|
114 |
0 |
if defined $data and $data->allocate and $header->incrBlocks |
600
|
44 |
0 |
if defined $bat and $bat->allocate and $bat->writeSig and $header->incrBlocks |
606
|
44 |
0 |
if defined $rv |
633
|
33 |
0 |
if defined $stream and $stream->allocate and $stream->writeSig and $header->incrBlocks |
639
|
33 |
0 |
if defined $rv |
663
|
33 |
11 |
unless ($bypass) |
666
|
33 |
0 |
if (pflock($file, 2)) { } |
670
|
0 |
33 |
unless $header->validateBlocks |
673
|
33 |
0 |
if $rv |
703
|
549 |
859 |
if ($pos < $bsize) { } |
709
|
859 |
0 |
if (defined $bat) |
740
|
0 |
1702 |
unless defined $whence |
741
|
0 |
1702 |
unless defined $whence |
743
|
1180 |
522 |
if ($whence == 0) { } |
746
|
522 |
0 |
if exists $self->{'streamPos'}{$sname} |
748
|
0 |
522 |
if ($whence == 1) { } |
|
522 |
0 |
elsif ($whence == 2) { } |
759
|
0 |
1702 |
if $self->{'streamPos'}{$sname} < 0 |
761
|
1702 |
0 |
if defined $rv |
762
|
526 |
1176 |
if $rv == 0 |
780
|
32 |
1124 |
unless exists $self->{'streamPos'}{$sname} |
810
|
11 |
566 |
if ($#bats < $addr[0]) |
814
|
11 |
0 |
if ($rv) { } |
825
|
647 |
0 |
$#bats == $addr[0] ? : |
832
|
70 |
0 |
if ($rv) { } |
840
|
577 |
0 |
if $#bats == $addr[0] |
843
|
0 |
577 |
unless $rv |
865
|
555 |
0 |
defined $content ? : |
872
|
555 |
0 |
if (pflock($file, 2)) |
875
|
555 |
0 |
if (defined $stream and defined $content and length $content) |
884
|
555 |
0 |
if ($self->_growStream($sname, @addr)) |
896
|
555 |
0 |
if (defined $bat and defined $block) |
908
|
555 |
70 |
$clength <= $blkLeft ? : |
919
|
0 |
625 |
unless ($bw == $chunk) |
927
|
70 |
555 |
if ($rv < length $content) |
929
|
0 |
70 |
unless ($bat->sequence == $addr[0]) |
944
|
555 |
0 |
if ($rv) |
946
|
544 |
11 |
if $stream->eos < $pos |
971
|
0 |
555 |
if $bypass |
975
|
0 |
555 |
$bypass ? : |
997
|
68 |
0 |
if (pflock($file, 1)) |
1000
|
68 |
0 |
if (defined $stream and defined $cref and ref $cref eq 'SCALAR') { } |
1017
|
83 |
0 |
if (defined $bat) |
1024
|
83 |
0 |
if (defined $block) |
1027
|
0 |
83 |
unless $pos < $eos |
1034
|
55 |
28 |
if $ctr > $btr - $rv |
1037
|
24 |
59 |
if $ctr > $eos - $pos |
1047
|
0 |
83 |
unless ($br == $ctr) |
1062
|
0 |
0 |
if (defined $stream) |
1088
|
0 |
68 |
if $bypass |
1091
|
0 |
68 |
$bypass ? : |
1106
|
511 |
0 |
defined $content ? : |
1111
|
511 |
0 |
if (pflock($file, 2)) |
1113
|
511 |
0 |
if (defined $stream) |
1115
|
511 |
0 |
if ($self->strmSeek($sname, 0, 2)) |
1144
|
11 |
0 |
if (pflock($file, 2)) |
1146
|
11 |
0 |
if (defined $stream) |
1149
|
11 |
0 |
if ($neos < $eos) |
1154
|
11 |
0 |
if $rv = $self->strmSeek($sname, $neos, 0) and $self->strmWrite($sname, $zeroes) |
1178
|
0 |
11 |
if $bypass |
1182
|
0 |
11 |
$bypass ? : |
1190
|
132 |
22 |
if defined $self->{'file'} and length $self->{'file'} |