| blib/lib/Perl/Metrics/Lite/FileFinder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 1 | 6 | unless (-r $path) |
| 39 | 0 | 36 | if $self->should_be_skipped($File::Find::name) |
| 40 | 18 | 18 | if ($self->is_perl_file($File::Find::name)) |
| 59 | 15 | 21 | unless -f $path |
| 62 | 0 | 21 | if $name =~ /$DOT_FILE_REGEX/ |
| 63 | 15 | 6 | if (length $suffix) |
| 73 | 0 | 6 | unless (-r $fh) |
| 79 | 0 | 6 | unless $first_line |