| blib/lib/IO/Dir/Recursive.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 18 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 92 | 0 | 8 | unless $key |
| 93 | 0 | 8 | if $key eq '.' |
| 96 | 0 | 8 | if $key eq '..' |
| 98 | 5 | 3 | if (-d $file) |
| 104 | 3 | 0 | if -e $file |
| 112 | 0 | 7 | unless my $dh = $class->new($dir) |
| 125 | 0 | 4 | unless defined $key |
| 137 | 4 | 12 | unless defined $key |
| 138 | 4 | 2 | if ${*$dh;}{'io_dir_noupwards'} and $key eq '.' || $key eq '..' |