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)) |