Branch Coverage

blib/lib/Language/Nouse.pm
Criterion Covered Total %
branch 50 72 69.4


line true false branch
64 24 19 if $this_mul =~ /[a-z]/
65 0 43 if $this_mul eq '_'
86 15 1 if ($token =~ /(cut|paste|read|write|add|test|swap) (\d+)/i) { }
0 1 elsif ($token =~ /(\d+)/) { }
91 0 15 if ($op eq 'cut') { }
0 15 elsif ($op eq 'paste') { }
3 12 elsif ($op eq 'read') { }
3 9 elsif ($op eq 'write') { }
3 6 elsif ($op eq 'add') { }
3 3 elsif ($op eq 'test') { }
3 0 elsif ($op eq 'swap') { }
121 0 943 if ($mul == 36) { }
656 287 elsif ($mul > 9) { }
137 5 0 unless defined $per_line
145 0 25 if ($op == 0) { }
0 25 elsif ($op == 1) { }
5 20 elsif ($op == 2) { }
5 15 elsif ($op == 3) { }
5 10 elsif ($op == 4) { }
5 5 elsif ($op == 5) { }
5 0 elsif ($op == 6) { }
188 3 27 if ($op == 0)
196 1 29 if ($op == 1)
199 1 0 if (scalar @{$$self{'stack'};}) { }
206 0 30 if ($op == 2)
209 0 0 if (defined $in)
214 14 16 if ($op == 3)
216 14 0 if (scalar @{$$self{'stack'};})
221 11 19 if ($op == 4)
223 11 0 if (scalar @{$$self{'stack'};})
231 0 30 if ($op == 5)
233 0 0 if (scalar @{$$self{'stack'};})
236 0 0 if ($oprand == $self->_peek)
242 1 29 if ($op == 6)
256 1 44 if ($s == 0)
276 0 44 unless scalar @{$$self{'ring'};}