| blib/lib/Git/PurePerl/PackIndex/Version1.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 4 | unless $fh->seek($pos, 0) |
| 30 | 0 | 1522 | unless $fh->read(my $data, $OffsetSize) |
| 32 | 0 | 1522 | unless $fh->read($data, $SHA1Size) |
| 46 | 0 | 2295 | unless defined $slot |
| 52 | 0 | 4261 | unless $fh->seek($SHA1Start + $mid * $EntrySize, 0) |
| 53 | 0 | 4261 | unless $fh->read(my $data, $SHA1Size) |
| 55 | 757 | 3504 | if ($midsha1 lt $want_sha1) { } |
| 1209 | 2295 | elsif ($midsha1 gt $want_sha1) { } | |
| 61 | 0 | 2295 | unless $fh->seek($pos, 0) |
| 62 | 0 | 2295 | unless $fh->read(my $data, $OffsetSize) |