Branch Coverage

blib/lib/Lisp/Interpreter.pm
Criterion Covered Total %
branch 28 38 73.6


line true false branch
31 0 539 if ($Lisp::Interpreter::DEBUG)
35 21 518 unless ref $form
36 6 512 if symbolp($form)
42 0 512 if ($func == $macro) { }
0 512 elsif ($func == $lambda) { }
52 448 64 unless (specialp($func) or $func == $macro)
55 360 188 if (ref $_)
56 66 294 if (symbolp($_)) { }
294 0 elsif (ref $_ eq 'ARRAY') { }
68 510 2 if (UNIVERSAL::isa($func, 'CODE')) { }
2 0 elsif (ref $func eq 'ARRAY') { }
71 2 0 if ($$func[0] == $lambda) { }
79 0 512 if ($Lisp::Interpreter::DEBUG)
99 1 5 if ($sym == $opt) { }
1 4 elsif ($sym == $rest) { }
1 3 elsif ($do_rest) { }
3 0 elsif ($i < @$args or $do_opt) { }
113 0 2 if (not $do_rest and @$args > $i)
132 134 0 if ref $$form[0] eq 'ARRAY'