| line |
true |
false |
branch |
|
90
|
6 |
3 |
unless defined $base |
|
103
|
3 |
6 |
unless $param{'data'} |
|
106
|
0 |
19 |
if exists $$self{'dirs'}{$name} |
|
115
|
3 |
6 |
unless $param{'temp'} |
|
118
|
0 |
19 |
if exists $$self{'dirs'}{$name} |
|
128
|
0 |
9 |
unless ref $copy eq 'ARRAY' and not @$copy % 2 |
|
147
|
5 |
10 |
unless -d $dir |
|
156
|
0 |
8 |
if -e $dir |
|
157
|
0 |
8 |
if -e $dir |
|
160
|
0 |
8 |
unless -d $dir |
|
173
|
0 |
4 |
if @_ > 1 |
|
180
|
0 |
0 |
unless defined $alias |
|
182
|
0 |
0 |
unless my $dir = $$self{'dirs'}{$alias} |
|
190
|
1 |
0 |
ref $arg ? : |
|
218
|
0 |
0 |
unless defined $pat |
|
229
|
0 |
0 |
if (-f $src) { } |
|
|
0 |
0 |
elsif (-d $src) { } |
|
|
0 |
0 |
elsif (-l $src) { } |
|
|
0 |
0 |
elsif (not -e $src) { } |
|
230
|
0 |
0 |
unless File::Copy::copy($src, $dst) |
|
237
|
0 |
0 |
unless symlink readlink $src, $dst |