| line |
true |
false |
branch |
|
56
|
4 |
0 |
unless -e $file |
|
69
|
1 |
3 |
unless $file->[0] == $$ |
|
70
|
0 |
3 |
unless -e $file->[1] |
|
79
|
18 |
11 |
ref $_[0] eq 'SCALAR' ? : |
|
80
|
1 |
28 |
ref $_[0] eq 'HASH' ? : |
|
88
|
2 |
28 |
if (-l $path) |
|
90
|
0 |
2 |
$File::Remove::unlink ? : |
|
|
2 |
0 |
if ($File::Remove::unlink ? &$File::Remove::unlink($path) : unlink($path)) |
|
95
|
3 |
25 |
unless (-e $path) |
|
101
|
25 |
0 |
if (do {
-w $path
}) { } |
|
|
0 |
0 |
elsif ($< == 0) { } |
|
|
0 |
0 |
elsif ((lstat $path)[4] == $<) { } |
|
119
|
0 |
25 |
unless ($can_delete) |
|
124
|
1 |
24 |
if (-f $path) { } |
|
|
24 |
0 |
elsif (-d $path) { } |
|
126
|
0 |
1 |
unless (-w $path) |
|
128
|
0 |
0 |
unless my(undef, undef, $rp) = lstat $path |
|
133
|
0 |
1 |
$File::Remove::unlink ? : |
|
|
1 |
0 |
if ($File::Remove::unlink ? &$File::Remove::unlink($path) : unlink($path)) |
|
135
|
0 |
1 |
if -e $path |
|
146
|
1 |
23 |
if (length $chdir) |
|
147
|
0 |
1 |
unless chdir $chdir |
|
150
|
16 |
8 |
if ($$recursive) { } |
|
151
|
16 |
0 |
if (File::Path::rmtree([$dir], 0, 0)) |
|
153
|
0 |
16 |
if -e $path |
|
160
|
0 |
8 |
$File::Remove::rmdir ? : |
|
|
8 |
0 |
if ($File::Remove::rmdir ? &$File::Remove::rmdir($dir) : rmdir $dir) |
|
162
|
0 |
8 |
if -e $path |
|
183
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
232
|
28 |
1 |
$opts->{'glob'} ? : |
|
236
|
26 |
8 |
-e $_ ? : |
|
243
|
4 |
24 |
@_ ? : |
|
252
|
0 |
28 |
unless $cv eq $rv |
|
259
|
24 |
4 |
unless (@cd >= @rd) |
|
263
|
1 |
25 |
unless $cd[$_] eq $rd[$_] |