| lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 38 | 71.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 51 | 0 | 0 | 271 | ref $token and $token->[1] |
| 0 | 232 | 39 | ref $token and $token->[1] and $token->[1] eq 'WORD' || $token->[1] eq 'KEYWORD' | |
| 64 | 6 | 49 | 77 | @$tokens and is_version($tokens->[0]) |
| 74 | 0 | 231 | 2 | ref $token and $token->[0] eq ":" |
| 78 | 0 | 0 | 231 | ref $token and $token->[1] |
| 0 | 199 | 32 | ref $token and $token->[1] and $token->[1] eq "ATTRIBUTE" | |
| 82 | 0 | 0 | 56 | is_module_name($name) and is_version($version) |
| 100 | 2 | 5 | 9 | @$tokens and is_version($tokens->[0]) |
| line | l | !l | condition |
|---|---|---|---|
| 81 | 38 | 18 | $version ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 51 | 153 | 17 | 101 | $token->[1] eq 'WORD' || $token->[1] eq 'KEYWORD' |
| 52 | 17 | 0 | 153 | $token->[0] eq "isa" or $token->[0] eq "extends" |
| 57 | 21 | 0 | 132 | $token->[0] eq "does" or $token->[0] eq "implements" |
| 67 | 17 | 39 | 76 | $isa or $does |