Branch Coverage

blib/lib/Cvs.pm
Criterion Covered Total %
branch 15 44 34.0


line true false branch
237 8 1 @_ % 2 ? :
243 8 1 if (defined $workdir) { }
246 0 8 if ($workdir =~ m[^(.*/)(.*)]) { }
249 0 0 if (index($1, '/') == 0) { }
264 0 8 unless (-d $self->pwd)
270 0 8 if (not defined $args{'cvsroot'} and -f join('/', $self->working_directory, 'CVS/Root'))
279 0 0 if (defined $_conf)
282 0 0 if defined $args{'cvsroot'}
292 4 5 if (defined $args{'cvsroot'}) { }
295 0 4 unless ($self->cvsroot($args{'cvsroot'}, %args))
329 0 0 unless my $cvsroot = $self->cvsroot
333 0 0 unless mkdir $tmpdir, 448
335 0 0 unless chdir $tmpdir
337 0 0 unless mkdir "$tmpdir/CVS"
341 0 0 unless my $root = 'FileHandle'->new(">$tmpdir/CVS/Root")
347 0 0 unless my $repository = 'FileHandle'->new(">$tmpdir/CVS/Repository")
368 0 0 unless $result->success
388 4 4 if (defined $cvsroot)
390 0 4 unless $$self{'cvsroot'} = 'Cvs::Cvsroot'->new($cvsroot, %args)
417 0 4 if $name eq 'DESTROY'
420 0 4 unless my $cmd = $module->new($self, @_)
437 0 0 if (@msg) { }