| blib/lib/Mylisp/ToPerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 32 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 0 | 0 | if ($end_char ~~ [';', '}']) { } |
| 125 | 0 | 0 | if (is_digit($char)) |
| 140 | 0 | 0 | if (first_char($cond) eq '(') |
| 200 | 0 | 0 | if ($iter eq '@args') |
| 216 | 0 | 0 | unless (is_atom_name($return, '->')) |
| 225 | 0 | 0 | if (is_blank($args)) |
| 229 | 0 | 0 | if (len($strs) == 1) |
| 230 | 0 | 0 | if ($str eq '@args') |
| 312 | 0 | 0 | if ($name eq 'Pair') |
| 334 | 0 | 0 | if ($bool eq 'true') |
| 341 | 0 | 0 | if ($name eq '@args') |
| 359 | 0 | 0 | if ($name eq 'package') |
| 362 | 0 | 0 | if ($name eq 'func') |
| 397 | 0 | 0 | if ($name ~~ ['=', '+', '-', '==', '>=', '!=', '>', '<', '<=', '&&', '||', '~~', 'gt', 'ge', 'lt', 'x', 'eq', 'le', 'ne', 'in']) |
| 441 | 0 | 0 | if (elen($strs) == 1) |
| 464 | 0 | 0 | if (elen($strs) == 1) |