| line |
true |
false |
branch |
|
24
|
0 |
1 |
unless not $path or $path eq '/' |
|
34
|
0 |
7 |
unless (ref $inst) |
|
39
|
7 |
0 |
unless not $path or $path eq '/' |
|
41
|
0 |
7 |
unless $lsoption |
|
42
|
0 |
7 |
unless $path |
|
44
|
0 |
7 |
unless opendir $dirH, $path |
|
51
|
14 |
60 |
if $_ eq '.' or $_ eq '..' |
|
52
|
44 |
16 |
if -f "$path/$_" |
|
53
|
16 |
44 |
if -d "$path/$_" |
|
61
|
6 |
20 |
if (-d $query) { } |
|
|
12 |
8 |
elsif (-f $query) { } |
|
69
|
7 |
1 |
if (-d $parent) { } |
|
79
|
1 |
0 |
unless $sourcepath eq '/' |
|
80
|
0 |
1 |
unless $sourcepath |
|
82
|
0 |
1 |
unless open my $readFH, '<', $sourcepath |
|
97
|
0 |
1 |
unless $dest |
|
98
|
0 |
1 |
unless open my $outFH, '>', "$dest" |
|
110
|
0 |
6 |
unless open my $inFH, '<', $source |
|
111
|
0 |
6 |
unless open my $ouFH, '>', $dest |
|
126
|
1 |
3 |
unless $path ne '/' |
|
128
|
0 |
3 |
unless mkdir $path |
|
134
|
1 |
3 |
unless $path ne '/' |
|
136
|
3 |
0 |
unless (rmdir $path) |
|
138
|
1 |
2 |
unless -d $path |
|
146
|
0 |
6 |
unless unlink $_ |
|
149
|
0 |
1 |
unless rmdir $_ |
|
157
|
0 |
2 |
unless -f $filepath |