Branch Coverage

blib/lib/Git/PurePerl/Pack.pm
Criterion Covered Total %
branch 34 52 65.3


line true false branch
44 0 3770 unless $fh->seek($offset, 0)
45 0 3770 unless $fh->read(my $c, 1)
56 0 3766 unless $fh->read($c, 1)
63 2597 1173 if ($type eq 'ofs_delta' or $type eq 'ref_delta') { }
1173 0 elsif ($type eq 'commit' or $type eq 'tree' or $type eq 'blob' or $type eq 'tag') { }
84 0 4522 unless $fh->seek($offset, 0)
92 0 4534 unless $fh->read(my $block, 4096)
95 0 4522 unless length $out == $size
97 0 4522 unless $fh->seek($offset + $deflate->total_in, 0)
107 0 2972 unless $fh->seek($offset, 0)
108 0 2972 unless $fh->read(my $data, $SHA1Size)
111 2 2970 if ($type eq 'ofs_delta') { }
142 0 2972 if ($src_size != length $base)
153 21126 9802 if (($c & 128) != 0) { }
9802 0 elsif ($c != 0) { }
157 18526 2600 if ($c & 1) != 0
159 14852 6274 if ($c & 2) != 0
161 0 21126 if ($c & 4) != 0
163 0 21126 if ($c & 8) != 0
165 21118 8 if ($c & 16) != 0
167 3920 17206 if ($c & 32) != 0
169 0 21126 if ($c & 64) != 0
171 0 21126 if $cp_size == 0
182 0 2972 if (length $dest != $dest_size)
196 0 11870 unless (defined $c)
204 5944 5926 if ($c & 128) == 0