Branch Coverage

blib/lib/VCS/Dir.pm
Criterion Covered Total %
branch 4 8 50.0


line true false branch
20 0 1 if (substr($path, -1, 1) ne '/')
54 0 0 unless my $vcsfile = eval { do { 'VCS::File'->new('vcs://' . $self->{'HOSTNAME'} . '/' . $self->{'IMPL_CLASS'} . '/' . $file) } }
75 7 0 unless substr($dir, -1, 1) eq '/'
84 6 6 if (-d $dir . $content) { }