| lib/ex/newest.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 14 | if substr($file, -3) ne '.pm' |
| 29 | 14 | 161 | if ref $dir |
| 31 | 14 | 147 | if -f $path and -r _ |
| 33 | 2 | 12 | unless @found |
| 34 | 10 | 2 | if (@found == 1) { } |
| 45 | 0 | 10 | unless open my $fh, $path |
| 79 | 8 | 0 | unless grep {ref $_ eq 'ex::newest';} @INC |