Branch Coverage

blib/lib/CPAN/InGit/MutableTree.pm
Criterion Covered Total %
branch 54 72 75.0


line true false branch
22 0 11 if (defined $self->{'branch'} and not ref $self->{'branch'})
23 0 0 unless my $b = "Git::Raw::Branch"->lookup($self->git_repo, $self->{'branch'}, 1)
28 1 10 if ($self->{'branch'} and not $self->{'tree'})
35 11 31 if ($self->has_changes)
36 10 1 if (keys %{$self->_changes})
41 31 2 if defined $node
43 6 2 if ref $node eq "HASH" and $node->{$basename}
45 1 4 if ($self->use_workdir)
47 1 0 if $ent
51 30 5 if ($self->tree)
52 6 24 unless my $dirent = $self->tree->entry_bypath($path)
67 1 21 if ($self->use_workdir) { }
72 1 0 unless -d $fullpath
76 0 1 if (not defined $data) { }
81 0 1 if ref($data)->isa("Git::Raw::Blob")
92 0 54 unless ref $node eq "HASH"
95 18 3 if (ref $data eq "SCALAR")
98 21 0 defined $data ? :
106 0 1 unless open my $fh, ">", $path
107 0 1 unless $fh->print($$scalarref)
108 0 1 unless $fh->close
109 0 1 if defined $mode and $mode != 33188
116 2 7 if ($self->use_workdir) { }
134 5 25 $tree ? :
137 0 39 if (not defined $ent) { }
141 23 16 if (ref $ent eq "HASH")
143 3 20 $dirent && $dirent->type == Git::Raw::Object::TREE() ? :
155 0 7 unless $self->has_changes
168 5 0 length $opts{'create_branch'} ? :
1 5 $branch ? :
1 6 $self->use_workdir ? :
171 0 7 unless my $commit = "Git::Raw::Commit"->create($repo, $message, $author, $committer, $parents, $self->tree, undef)
173 6 1 if ($opts{'create_branch'}) { }
1 0 elsif ($branch) { }
180 1 6 if $branch and $update_head
183 1 6 if $self->use_workdir