Branch Coverage

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


line true false branch
44 0 3838 unless $fh->seek($offset, 0)
45 0 3838 unless $fh->read(my $c, 1)
56 0 3805 unless $fh->read($c, 1)
63 2662 1176 if ($type eq 'ofs_delta' or $type eq 'ref_delta') { }
1176 0 elsif ($type eq 'commit' or $type eq 'tree' or $type eq 'blob' or $type eq 'tag') { }
84 0 4590 unless $fh->seek($offset, 0)
92 0 4602 unless $fh->read(my $block, 4096)
95 0 4590 unless length $out == $size
97 0 4590 unless $fh->seek($offset + $deflate->total_in, 0)
107 0 3040 unless $fh->seek($offset, 0)
108 0 3040 unless $fh->read(my $data, $SHA1Size)
111 2 3038 if ($type eq 'ofs_delta') { }
142 0 3040 if ($src_size != length $base)
153 21654 9972 if (($c & 128) != 0) { }
9972 0 elsif ($c != 0) { }
157 18986 2668 if ($c & 1) != 0
159 15276 6378 if ($c & 2) != 0
161 0 21654 if ($c & 4) != 0
163 0 21654 if ($c & 8) != 0
165 21646 8 if ($c & 16) != 0
167 4024 17630 if ($c & 32) != 0
169 0 21654 if ($c & 64) != 0
171 0 21654 if $cp_size == 0
182 0 3040 if (length $dest != $dest_size)
196 0 12142 unless (defined $c)
204 6080 6062 if ($c & 128) == 0