Branch Coverage

blib/lib/Git/PurePerl.pm
Criterion Covered Total %
branch 46 76 60.5


line true false branch
105 0 9 unless (-d $self->gitdir)
108 0 9 unless (not defined $self->directory or -d $self->directory)
124 3 3 unless $filename =~ /\.pack$/
135 0 5 if (-d $file) { }
150 11 22 unless -d $dir
155 6 5 if (-f $packed_refs)
157 6 6 if $line =~ /^#/
158 0 6 if $line =~ /^\^/
179 0 30 unless -d $dir
181 0 30 if ($wantref eq 'HEAD')
191 16 0 if ($ref eq $wantref)
200 14 0 if (-f $packed_refs)
204 14 14 if $line =~ /^#/
209 0 0 if $last_name and $last_name eq $wantref and $name ne $wantref
214 14 0 if $last_name eq $wantref
221 0 30 if $sha1 =~ /^ref: (.*)/
252 3 866 unless $sha1
266 798 0 if (defined $kind and defined $size and defined $content)
276 68 0 if (defined $kind and defined $size and defined $content)
283 155 711 if ($kind eq 'commit') { }
403 308 elsif ($kind eq 'tree') { }
308 0 elsif ($kind eq 'blob') { }
0 0 elsif ($kind eq 'tag') { }
347 4 10 if ($object->kind eq 'commit')
348 4 0 unless $ref
358 0 5 unless $ref_fh->print($sha1)
363 0 5 unless $head_fh->print("ref: refs/heads/$refname")
373 1 2 if (not defined $directory) { }
378 2 0 unless (defined $arguments{'gitdir'})
391 2 1 defined $directory ? :
432 0 4 unless $tree
438 5 0 if ($object->kind eq 'blob') { }
0 0 elsif ($object->kind eq 'tree') { }
440 0 5 unless chmod oct '0' . $mode, $filename
455 1 0 if (@_ == 2) { }
458 0 1 unless $_[1] =~ m[^/]
487 0 39 unless $fh->print($contents)
488 0 39 unless $fh->close