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 |