| blib/lib/Perl/Metrics/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 6 | 5 | scalar @dirs_and_files ? : |
| 48 | 1 | 7 | unless (-r $path) |
| 61 | 0 | 51 | if $self->should_be_skipped($File::Find::name) |
| 62 | 27 | 24 | if ($self->is_perl_file($File::Find::name)) |
| 82 | 20 | 31 | unless -f $path |
| 85 | 0 | 31 | if $name =~ /$DOT_FILE_REGEX/ |
| 86 | 23 | 8 | if (length $suffix) |
| 96 | 0 | 8 | unless (-r $fh) |
| 102 | 0 | 8 | unless $first_line |