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