| line |
true |
false |
branch |
|
95
|
239 |
99 |
if (defined $self) |
|
167
|
74 |
74 |
$u eq 'TB' ? : |
|
|
74 |
148 |
$u eq 'GB' ? : |
|
|
129 |
222 |
$u eq 'MB' ? : |
|
|
148 |
351 |
$u eq 'KB' ? : |
|
|
222 |
499 |
$u eq 'B' ? : |
|
175
|
74 |
647 |
if $u eq "EX" |
|
213
|
74 |
0 |
if $rv{'intSize'} == 64 |
|
217
|
0 |
74 |
if $rv{'maxStreamSize'} > $rv{'maxFileSize'} |
|
266
|
129 |
0 |
if (pflock($file, 1)) |
|
267
|
129 |
0 |
if ($self->bread(\$raw, 0, 28) == 28) { } |
|
276
|
0 |
129 |
unless ($type eq "PIOFM") |
|
282
|
0 |
129 |
unless ($ver eq "1.0") |
|
289
|
129 |
0 |
if (defined $bs) { } |
|
291
|
22 |
107 |
unless (defined $tblock) |
|
306
|
129 |
0 |
if (defined $bc) { } |
|
308
|
44 |
85 |
unless (ptell($file) == $bc * $bs) |
|
324
|
85 |
44 |
if ($rv) { } |
|
359
|
257 |
0 |
if (defined $bcount and $bcount > 0) { } |
|
361
|
257 |
0 |
if ($self->bwrite($raw, 19) == 8) |
|
387
|
3003 |
0 |
if ($self->bread(\$raw, 19, 8) == 8) |
|
389
|
0 |
3003 |
if defined $rv and $rv == 0 |
|
421
|
2973 |
19 |
if $self->{'blocks'} == $self->readBlocks |
|
444
|
0 |
0 |
if (pflock($file, 2)) |
|
450
|
0 |
0 |
unless $self->bwrite(pack("Z21NNx", @$rec), $pos) == 30 |
|
454
|
0 |
0 |
unless $rv |
|
460
|
0 |
0 |
unless $rv |
|
485
|
52 |
0 |
if ($self->bread(\$raw, 28)) { } |
|
498
|
52 |
60 |
unless defined $sname and length $sname and $bn > 0 |
|
501
|
0 |
60 |
if (exists $sidx{$sname}) |
|
509
|
0 |
60 |
unless (not defined $prev or $bn > $prev) |
|
553
|
77 |
11 |
if (defined $sname and length $sname) { } |
|
554
|
0 |
77 |
if (exists $sidx{$sname}) |
|
559
|
0 |
77 |
if (length $sname > 20) |
|
564
|
22 |
55 |
if (not defined $bn or $bn < 1) |
|
569
|
55 |
22 |
if ($rv) |
|
574
|
0 |
55 |
unless $self->bwrite(pack("Z21NNx", $sname, $bn), 28 + 30 * $#{$$self{"streams"};}) == 30 |