| line |
true |
false |
branch |
|
31
|
4 |
12 |
unless -f _
|
|
32
|
6 |
6 |
if -s _
|
|
65
|
2 |
24 |
if $_ eq '.' or $_ eq '..'
|
|
66
|
0 |
24 |
if -l $_
|
|
67
|
12 |
12 |
unless -d _
|
|
68
|
2 |
10 |
if File::MoreUtil::dir_has_non_subdirs($_)
|
|
76
|
0 |
12 |
unless length $b <=> length $a
|
|
77
|
10 |
0 |
unless (keys %{$dirs{$dir};})
|
|
79
|
10 |
0 |
if ($include_would_be_empty)
|
|
80
|
0 |
10 |
unless $dir =~ m[(.+)/(.+)]
|
|
120
|
3 |
3 |
if ($args{'-dry_run'}) { }
|
|
124
|
0 |
3 |
unless (unlink $f)
|
|
165
|
5 |
5 |
if ($args{'-dry_run'}) { }
|
|
168
|
5 |
0 |
if (File::MoreUtil::dir_empty($dir))
|
|
170
|
0 |
5 |
unless (rmdir $dir)
|