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 |