Branch Coverage

blib/lib/Paranoid/IO/FileMultiplexer/Block/FileHeader.pm
Criterion Covered Total %
branch 48 74 64.8


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