| blib/lib/Mylisp/ToPerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 30 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 43 | 0 | 0 | if ($end_char ~~ [';', '}']) { } |
| 128 | 0 | 0 | if (is_digit($char)) |
| 143 | 0 | 0 | if (first_char($cond) eq '(') |
| 203 | 0 | 0 | if ($iter eq '@args') |
| 227 | 0 | 0 | if (is_blank($args)) |
| 231 | 0 | 0 | if (len($strs) == 1) |
| 232 | 0 | 0 | if ($str eq '@args') |
| 314 | 0 | 0 | if ($name eq 'Pair') |
| 336 | 0 | 0 | if ($bool eq 'true') |
| 343 | 0 | 0 | if ($name eq '@args') |
| 361 | 0 | 0 | if ($name eq 'package') |
| 364 | 0 | 0 | if ($name eq 'func') |
| 399 | 0 | 0 | if ($name ~~ ['=', '+', '-', '==', '>=', '!=', '>', '<', '<=', '&&', '||', '~~', 'gt', 'ge', 'lt', 'x', 'eq', 'le', 'ne', 'in']) |
| 443 | 0 | 0 | if (elen($strs) == 1) |
| 466 | 0 | 0 | if (elen($strs) == 1) |