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