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