| blib/lib/Git/PurePerl/Pack/WithoutIndex.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 29 | 55.1 |
| line | l | !l | condition |
|---|---|---|---|
| 17 | 1 | 0 | 'IO::File'->new("> $index_filename") || die($!) |
| 29 | 256 | 0 | $fan_out_table[$i] || 0 |
| 30 | 256 | 0 | $fan_out_table[$i] || 0 |
| 42 | 1 | 0 | $fh->read(my $pack_sha1, 20) || die($!) |
| 64 | 752 | 0 | $fh->tell || die("Error telling filehandle: $!") |
| 67 | 752 | 0 | unpack('C', $c) || die($!) |
| 80 | 672 | 0 | unpack('C', $c) || die($!) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 72 | 752 | 0 | 0 | $TYPES[$type_number] || confess("invalid type $type_number at offset $offset, size $size") |
| 88 | 0 | 380 | 372 | $type eq 'ofs_delta' or $type eq 'ref_delta' |
| 108 | 223 | 41 | $type eq 'commit' or $type eq 'tree' | |
| 331 | 41 | 0 | $type eq 'commit' or $type eq 'tree' or $type eq 'blob' | |
| 264 | 0 | 0 | $type eq 'commit' or $type eq 'tree' or $type eq 'blob' or $type eq 'tag' |