lib/Perlmazing/Perlmazing/rmdir.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 16 | 62.5 |
line | true | false | branch |
---|---|---|---|
6 | 0 | 2 | unless -e $path |
7 | 0 | 2 | unless -d $path |
9 | 0 | 2 | unless $item_count += CORE::rmdir $path |
16 | 0 | 4 | unless opendir my $dir, $path |
18 | 8 | 4 | if $item =~ /^\.{1,2}$/u |
20 | 0 | 4 | if $full_item eq $path |
21 | 2 | 2 | if (-d $full_item and not readlink $full_item) { } |
25 | 0 | 2 | unless unlink $full_item |