Branch Coverage

blib/lib/Language/Expr/Compiler/perl.pm
Criterion Covered Total %
branch 95 138 68.8


line true false branch
35 0 8 unless $op
36 4 4 if ($op eq '||') { }
4 0 elsif ($op eq '//') { }
0 0 elsif ($op eq '^^') { }
51 0 4 unless $op
52 4 0 if ($op eq '&&')
71 0 2 unless $op
72 1 1 if ($op eq '|') { }
1 0 elsif ($op eq '^') { }
85 0 1 unless $op
86 1 0 if ($op eq '&')
98 0 29 unless $op
99 22 7 if ($op eq '<=>') { }
7 0 elsif ($op eq 'cmp') { }
110 0 53 unless defined $opds[0]
115 0 60 unless $op
116 17 43 if ($op eq '==') { }
4 39 elsif ($op eq '!=') { }
3 36 elsif ($op eq 'eq') { }
0 36 elsif ($op eq 'ne') { }
4 32 elsif ($op eq '<') { }
3 29 elsif ($op eq '<=') { }
24 5 elsif ($op eq '>') { }
5 0 elsif ($op eq '>=') { }
0 0 elsif ($op eq 'lt') { }
0 0 elsif ($op eq 'le') { }
0 0 elsif ($op eq 'gt') { }
0 0 elsif ($op eq 'ge') { }
129 0 53 unless @ops
135 7 53 if (defined $lastopd) { }
142 7 53 if (@res) { }
159 0 4 unless $op
160 2 2 if ($op eq '>>') { }
2 0 elsif ($op eq '<<') { }
173 0 40 unless $op
174 2 38 if ($op eq '.')
175 33 7 if ($op eq '+')
176 5 35 if ($op eq '-')
188 0 27 unless $op
189 13 14 if ($op eq '*')
190 6 21 if ($op eq '/')
191 3 24 if ($op eq '%')
192 5 22 if ($op eq 'x')
203 0 17 unless $op
205 5 12 if ($op eq '!')
206 11 6 if ($op eq '-')
207 1 16 if ($op eq '~')
233 0 27 unless @ss
236 1 27 if defined $res
274 2 62 $_->{'type'} eq 'VAR' ? :
276 0 64 if (@tmp > 1) { }
286 1 1 if ($match->{'bool'} eq 'true') { }
292 0 318 if ($match->{'num'} eq 'inf') { }
0 318 elsif ($match->{'num'} eq 'nan') { }
300 0 97 if ($self->hook_var)
302 0 0 if defined $res
312 0 37 if ($self->hook_func)
314 0 0 if defined $res
317 0 37 if $fmap
327 6 12 $which eq 'grep' ? :
13 18 $which eq 'map' ? :
368 3 153 if ($c eq '"') { }
4 149 elsif ($c eq '\\') { }
3 146 elsif ($c eq '$') { }
2 144 elsif ($c eq '@') { }
138 6 elsif ($o >= 32 and $o <= 127) { }
0 6 elsif ($o > 255) { }
386 0 31 unless $type eq 'subexpr'
399 7 149 if $@