Branch Coverage

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


line true false branch
44 0 3878 unless $fh->seek($offset, 0)
45 0 3878 unless $fh->read(my $c, 1)
56 0 3852 unless $fh->read($c, 1)
63 2700 1178 if ($type eq 'ofs_delta' or $type eq 'ref_delta') { }
1178 0 elsif ($type eq 'commit' or $type eq 'tree' or $type eq 'blob' or $type eq 'tag') { }
84 0 4630 unless $fh->seek($offset, 0)
92 0 4642 unless $fh->read(my $block, 4096)
95 0 4630 unless length $out == $size
97 0 4630 unless $fh->seek($offset + $deflate->total_in, 0)
107 0 3080 unless $fh->seek($offset, 0)
108 0 3080 unless $fh->read(my $data, $SHA1Size)
111 2 3078 if ($type eq 'ofs_delta') { }
142 0 3080 if ($src_size != length $base)
153 24294 11784 if (($c & 128) != 0) { }
11784 0 elsif ($c != 0) { }
157 21540 2754 if ($c & 1) != 0
159 17844 6450 if ($c & 2) != 0
161 0 24294 if ($c & 4) != 0
163 0 24294 if ($c & 8) != 0
165 24288 6 if ($c & 16) != 0
167 4158 20136 if ($c & 32) != 0
169 0 24294 if ($c & 64) != 0
171 0 24294 if $cp_size == 0
182 0 3080 if (length $dest != $dest_size)
196 0 12302 unless (defined $c)
204 6160 6142 if ($c & 128) == 0