| lib/LEOCHARRE/Dir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 18 | 55.5 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 4 | unless my $_d = Cwd::abs_path($_[0]) |
| 26 | 0 | 4 | unless -d $_d or mkdir $_d |
| 31 | 1 | 10 | unless $_[0] |
| 32 | 0 | 10 | unless opendir DIR, $_[0] |
| 38 | 0 | 7 | unless $_[0] |
| 40 | 0 | 7 | unless my $abs = Cwd::abs_path($_[0]) |
| 61 | 0 | 10 | unless $ENV{'DOCUMENT_ROOT'} |
| 64 | 0 | 10 | unless $p |
| 66 | 0 | 10 | unless $p =~ s/^$ENV{'DOCUMENT_ROOT'}// |