| lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 133 | 52 | if (ref $token and $token->[1] and $token->[1] eq "WORD") |
| 51 | 17 | 116 | if ($token->[0] eq "isa" or $token->[0] eq "extends") |
| 56 | 21 | 95 | if ($token->[0] eq "does" or $token->[0] eq "implements") |
| 61 | 95 | 0 | if (is_module_name($token->[0])) |
| 63 | 57 | 38 | if (@$tokens and is_version($tokens->[0])) |
| 66 | 56 | 39 | if ($isa or $does) { } |
| 84 | 9 | 9 | if (is_module_name($token->[0])) |
| 86 | 3 | 6 | if (@$tokens and is_version($tokens->[0])) |