Branch Coverage

blib/lib/App/Scheme79asm/Compiler.pm
Criterion Covered Total %
branch 44 44 100.0


line true false branch
43 20 10 if (defined $expr) { }
54 24 17 if (defined $expr) { }
68 8 6 if (defined $expr) { }
82 1 36 if (not defined $list) { }
16 20 elsif ($list->car eq $expr) { }
109 9 39 if (not defined $expr) { }
25 14 elsif (&scalarp($expr)) { }
13 1 elsif (&consp($expr)) { }
113 1 24 if ($expr eq 'NIL')
116 22 2 unless (exists $self->{'symbol_map'}{$expr})
137 16 12 if (not defined $args) { }
149 13 4 if ($prim_idx > -1) { }
150 1 12 unless (defined $processed_args)
162 2 66 if (not defined $expr) { }
25 41 elsif (&scalarp($expr)) { }
165 2 23 if (&looks_like_number($expr)) { }
4 19 elsif (uc $expr eq 'T') { }
2 17 elsif (uc $expr eq 'NIL') { }
173 16 1 if (defined $position) { }
181 14 27 if ($func eq 'QUOTE') { }
6 21 elsif ($func eq 'LAMBDA') { }
4 17 elsif ($func eq 'IF') { }