| lib/Perl/PrereqScanner/NotQuiteLite/Parser/SyntaxCollector.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 3 | if (is_version($tokens->[0])) |
| 23 | 2 | 1 | if (not @$tokens % 2) { } |
| 25 | 1 | 0 | ref $key ? : |
| 26 | 1 | 0 | if ($keystr eq "-collect") |
| 34 | 0 | 3 | if (ref $spec) |
| 37 | 1 | 2 | unless $spec |
| 41 | 4 | 2 | defined $4 ? : |
| 6 | 0 | /^ (use|no) \s+ # "use" or "no" (\S+) \s+ # module name ([\d\._v]+) # module version (?: # everything else \s* (.+) )? # ... perhaps [;] \s* # semicolon $/x ? : |