lib/Perlmazing/Perlmazing/empty_dir.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 7 | 7 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 3 | 3 | 100.0 |
pod | 0 | 1 | 0.0 |
total | 10 | 11 | 90.9 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | 1 | 1 | 10 | use Perlmazing; | |||
1 | 2 | ||||||
1 | 7 | ||||||
2 | 1 | 1 | 8 | use File::Path 'remove_tree'; | |||
1 | 3 | ||||||
1 | 122 | ||||||
3 | |||||||
4 | sub main { | ||||||
5 | 1 | 1 | 0 | 2070 | remove_tree $_[0], {keep_root => 1}; | ||
6 | } | ||||||
7 | |||||||
8 | 1; |