Branch Coverage

blib/lib/Cogit.pm
Criterion Covered Total %
branch 44 76 57.8


line true false branch
80 0 8 unless (-d $self->gitdir)
83 0 8 unless (not defined $self->directory or -d $self->directory)
99 2 2 unless $filename =~ /\.pack$/
109 0 5 if (-d $file) { }
124 11 22 unless -d $dir
129 6 5 if (-f $packed_refs)
131 6 6 if $line =~ /^#/
132 0 6 if $line =~ /^\^/
153 0 31 unless -d $dir
155 0 31 if ($wantref eq 'HEAD')
165 17 0 if ($ref eq $wantref)
174 14 0 if (-f $packed_refs)
178 14 14 if $line =~ /^#/
183 0 0 if $last_name and $last_name eq $wantref and $name ne $wantref
191 14 0 if $last_name eq $wantref
198 0 31 if $sha1 =~ /^ref: (.*)/
229 7 118 unless $sha1
243 46 0 if (defined $kind and defined $size and defined $content)
253 72 0 if (defined $kind and defined $size and defined $content)
260 48 70 if ($kind eq 'commit') { }
31 39 elsif ($kind eq 'tree') { }
39 0 elsif ($kind eq 'blob') { }
0 0 elsif ($kind eq 'tag') { }
324 4 10 if ($object->kind eq 'commit')
325 4 0 unless $ref
335 0 4 unless $ref_fh->print($sha1)
340 0 4 unless $head_fh->print("ref: refs/heads/$refname")
350 1 1 if (defined $directory) { }
354 1 0 unless (defined $arguments{'gitdir'})
367 1 1 defined $directory ? :
401 0 5 unless $tree
407 7 0 if ($object->kind eq 'blob') { }
0 0 elsif ($object->kind eq 'tree') { }
409 0 7 unless chmod oct '0' . $mode, $filename
424 0 0 if (@_ == 2) { }
428 0 0 unless $_[1] =~ m[^/]
454 0 29 unless $fh->print($contents)
455 0 29 unless $fh->close