| lib/File/DirObject/Dir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 15 | if ($first ne '/') |
| 22 | 5 | 10 | if ($last eq '/') |
| 58 | 0 | 4 | unless opendir $dir, do { $self }->{'dirname'} |
| 67 | 0 | 0 | if ($_->name eq $name) |
| 81 | 1 | 0 | if ($_->name eq $name) |
| 95 | 4 | 28 | if ($_ eq '.' or $_ eq '..') |
| 99 | 20 | 8 | unless (-d $target) |
| 112 | 4 | 15 | if ($_ eq '.' or $_ eq '..') |
| 116 | 5 | 10 | if (-d $target) |