| line |
true |
false |
branch |
|
29
|
2 |
25 |
unless (defined wantarray) |
|
37
|
2 |
23 |
unless defined $target_dir |
|
38
|
2 |
23 |
unless -d $target_dir |
|
42
|
23 |
0 |
if ($tainted_orig =~ /$options->{'untaint_pattern'}/) { } |
|
50
|
23 |
0 |
$target_dir ? : |
|
51
|
0 |
23 |
if $@ |
|
54
|
23 |
0 |
if ($tainted_dest =~ /$options->{'untaint_pattern'}/) { } |
|
61
|
21 |
2 |
if ($dest ne $orig) |
|
62
|
0 |
21 |
unless chdir $dest |
|
80
|
2 |
9 |
unless (defined wantarray) |
|
88
|
0 |
9 |
if $@ |
|
100
|
4 |
6 |
unless $self->{'_tempd'} |
|
101
|
2 |
4 |
if (@_ == 0) { } |
|
105
|
2 |
2 |
$_[0] ? : |
|
118
|
23 |
0 |
if $orig |
|
119
|
6 |
3 |
if ($self->{'_tempd'} and $self->{'_owner'} == $$ and not $self->{'_preserve'}) |
|
129
|
0 |
6 |
if $err |