Branch Coverage

blib/lib/Imager/Expr/Assem.pm
Criterion Covered Total %
branch 38 54 70.3


line true false branch
32 1 9 if $line =~ /^\s*$/
34 3 7 if (my($name, $type) = $op =~ /^\s*var\s+([^:]+):(\S+)\s*$/)
35 0 3 if (exists $vars{$name})
39 2 1 if ($type eq 'num' or $type eq 'n') { }
1 0 elsif ($type eq 'pixel' or $type eq 'p' or $type eq 'c') { }
53 1 6 if ($op =~ s/^\s*(\w+):\s*//)
54 0 1 if ($labels{$1})
61 1 6 if $op =~ /^\s*$/
63 0 6 if ($op =~ /^\s*jump\s+(\w+)\s*$/) { }
1 5 elsif (my($code, $reg, $targ) = $op =~ /^\s*(jumpz|jumpnz)\s+(\S+)\s+(\S+)\s*$/) { }
0 5 elsif ($op =~ /^\s*print\s+(\S+)\s*/) { }
1 4 elsif ($op =~ /^\s*ret\s+(\S+)\s*/) { }
1 3 elsif ($op =~ s/\s*(\S+)\s*=\s*(\S+)\s*$//) { }
3 0 elsif ($op =~ s/\s*(\S+)\s*=\s*(\S+)\s*//) { }
83 0 3 unless ($attr->{$opcode})
106 1 12 if exists $self->{'constants'}{$name}
107 10 3 if ($vars{$name}) { }
3 0 elsif ($name =~ /^$numre$/) { }
123 0 6 if ($op->[1] eq 'jump') { }
1 5 elsif ($op->[1] =~ /^jump/) { }
0 5 elsif ($op->[1] eq 'print') { }
1 4 elsif ($op->[1] eq 'ret') { }
124 0 0 unless (exists $labels{$op->[2]})
131 0 1 unless (exists $labels{$op->[3]})
148 0 4 if ($result =~ /^$numre$/)
163 0 1 if (@ops and $ops[-1][0] ne "ret" and $ops[-1][0] ne "jump")
170 0 1 if (@msgs)