Branch Coverage

blib/lib/Mylisp/ToPerl.pm
Criterion Covered Total %
branch 0 44 0.0


line true false branch
62 0 0 unless (end_with($ns, 'Estr'))
213 0 0 if (IsDefine($t, $call))
227 0 0 if ($type eq 'Str')
237 0 0 if ($type eq 'Str')
252 0 0 if ($type eq 'Int') { }
308 0 0 if ($iter eq '@args')
383 0 0 if (is_blank($args))
388 0 0 if (len($strs) == 1)
389 0 0 if ($str eq '@args')
477 0 0 if ($type eq 'Str')
488 0 0 if ($type eq 'Str')
499 0 0 if ($type eq 'Str')
510 0 0 if ($type eq 'Str')
521 0 0 if ($type eq 'Str')
532 0 0 if ($type eq 'Str')
542 0 0 if ($name eq 'set')
546 0 0 if ($name ~~ ['-', '&&', '||', '~~'])
560 0 0 if ($call_type eq 'Nil')
627 0 0 if (start_with($name, '$')) { }
655 0 0 if ($bool eq 'true')
663 0 0 if ($name eq '@args')
744 0 0 if ($array eq '@args')