| lib/Perlmazing/Perlmazing/dir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 32 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 9 | 0 | 5 | if @coderefs > 1 |
| 10 | 0 | 5 | if @args > 2 |
| 15 | 1 | 4 | if (@_ == 1) { } |
| 4 | 0 | elsif (@_ == 2) { } | |
| 16 | 1 | 0 | if (-d $_[0]) { } |
| 19 | 0 | 0 | $_[0] ? : |
| 22 | 4 | 0 | if (defined $_[0] and -d $_[0]) { } |
| 0 | 0 | elsif (defined $_[1] and -d $_[1]) { } | |
| 38 | 26 | 0 | if (opendir my $d, $path) { } |
| 42 | 19 | 25 | if $callback |
| 43 | 25 | 19 | if $wantarray |
| 47 | 75 | 21 | if (-d $item) { } |
| 48 | 52 | 23 | if $i eq '.' or $i eq '..' |
| 56 | 21 | 2 | if ($recursive) |
| 58 | 12 | 9 | if $wantarray |
| 65 | 16 | 10 | if $wantarray |