Branch Coverage

blib/lib/Git/PurePerl/Pack/WithoutIndex.pm
Criterion Covered Total %
branch 13 24 54.1


line true false branch
29 0 256 unless $index_fh->print(pack('N', $fan_out_table[$i] || 0))
34 0 752 unless $index_fh->print(pack('N', $offset))
35 0 752 unless $index_fh->print(pack('H*', $sha1))
41 0 1 unless $fh->seek($size - 20, 0)
44 0 1 unless $index_fh->print($pack_sha1)
45 0 1 unless $index_fh->print($iod->digest)
47 0 1 unless $index_fh->close
66 0 752 unless $fh->read(my $c, 1)
79 0 671 unless $fh->read($c, 1)
88 378 374 if ($type eq 'ofs_delta' or $type eq 'ref_delta') { }
374 0 elsif ($type eq 'commit' or $type eq 'tree' or $type eq 'blob' or $type eq 'tag') { }
115 0 1518 unless $offset