| lib/Perl/PrereqScanner/NotQuiteLite/Parser/ClassAccessor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 16 | 31.2 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 2 | if (is_version($tokens->[0])) |
| 24 | 2 | 0 | if ($token =~ /^(?:antlers|moose-?like)$/i) |
| 42 | 2 | 2 | unless (ref $token) |
| 48 | 0 | 2 | if ($desc eq "{}") |
| 49 | 0 | 0 | unless $token->[0] |
| 51 | 0 | 0 | if ($hash_tokens[$i][0] eq "-version" and $i < $len - 2) |
| 54 | 0 | 0 | if (ref $maybe_version) |
| 57 | 0 | 0 | if ($prev and is_version($maybe_version)) |