| line |
true |
false |
branch |
|
95
|
239 |
99 |
if (defined $self) |
|
166
|
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' ? : |
|
174
|
74 |
647 |
if $u eq "EX" |
|
212
|
74 |
0 |
if $rv{'intSize'} == 64 |
|
216
|
0 |
74 |
if $rv{'maxStreamSize'} > $rv{'maxFileSize'} |
|
264
|
129 |
0 |
if (pflock($file, 1)) |
|
265
|
129 |
0 |
if ($self->bread(\$raw, 0, 28) == 28) { } |
|
274
|
0 |
129 |
unless ($type eq "PIOFM") |
|
280
|
0 |
129 |
unless ($ver eq "1.0") |
|
287
|
129 |
0 |
if (defined $bs) { } |
|
289
|
22 |
107 |
unless (defined $tblock) |
|
304
|
129 |
0 |
if (defined $bc) { } |
|
306
|
44 |
85 |
unless (ptell($file) == $bc * $bs) |
|
322
|
85 |
44 |
if ($rv) { } |
|
355
|
257 |
0 |
if (defined $bcount and $bcount > 0) { } |
|
357
|
257 |
0 |
if ($self->bwrite($raw, 19) == 8) |
|
381
|
3003 |
0 |
if ($self->bread(\$raw, 19, 8) == 8) |
|
383
|
0 |
3003 |
if defined $rv and $rv == 0 |
|
413
|
2973 |
19 |
if $self->{'blocks'} == $self->readBlocks |
|
434
|
0 |
0 |
if (pflock($file, 2)) |
|
440
|
0 |
0 |
unless $self->bwrite(pack("Z21NNx", @$rec), $pos) == 30 |
|
444
|
0 |
0 |
unless $rv |
|
450
|
0 |
0 |
unless $rv |
|
473
|
52 |
0 |
if ($self->bread(\$raw, 28)) { } |
|
486
|
52 |
60 |
unless defined $sname and length $sname and $bn > 0 |
|
489
|
0 |
60 |
if (exists $sidx{$sname}) |
|
497
|
0 |
60 |
unless (not defined $prev or $bn > $prev) |
|
539
|
77 |
11 |
if (defined $sname and length $sname) { } |
|
540
|
0 |
77 |
if (exists $sidx{$sname}) |
|
545
|
0 |
77 |
if (length $sname > 20) |
|
550
|
22 |
55 |
if (not defined $bn or $bn < 1) |
|
555
|
55 |
22 |
if ($rv) |
|
560
|
0 |
55 |
unless $self->bwrite(pack("Z21NNx", $sname, $bn), 28 + 30 * $#{$$self{"streams"};}) == 30 |