| blib/lib/App/FileRemoveUtils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 28 | 82.1 |
| line | true | false | branch |
|---|---|---|---|
| 51 | 4 | 12 | unless -f _ |
| 52 | 6 | 6 | if -s _ |
| 59 | 3 | 3 | if ($args{'-dry_run'}) { } |
| 63 | 0 | 3 | unless (unlink $f) |
| 107 | 2 | 24 | if $_ eq '.' or $_ eq '..' |
| 108 | 0 | 24 | if -l $_ |
| 109 | 12 | 12 | unless -d _ |
| 110 | 2 | 10 | if File::MoreUtil::dir_has_non_subdirs($_) |
| 111 | 2 | 8 | $File::Find::dir eq '.' ? : |
| 118 | 5 | 5 | if ($args{'-dry_run'}) { } |
| 119 | 4 | 1 | unless (keys %{$dirs{$dir};}) |
| 121 | 0 | 4 | unless $dir =~ m[(.+)/(.+)] |
| 126 | 5 | 0 | if (File::MoreUtil::dir_empty($dir)) |
| 128 | 0 | 5 | unless (rmdir $dir) |