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) { }