Branch Coverage

blib/lib/Language/l33t/Operators.pm
Criterion Covered Total %
branch 16 26 61.5


line true false branch
41 1 476 if ($index > $#op_codes or $index < 0)
74 2 2 unless $x
86 0 1 if $self->debug
89 0 1 if ("${ip}:$port" eq '0.0.0.0:0') { }
93 0 1 if (my $sock = 'IO::Socket::INET'->new("${ip}:$port")) { }
119 18 0 if (my $io = $self->socket || $self->stdout) { }
134 0 0 if (my $io = $self->socket || $self->stdin) { }
149 43 1 if ($self->_get_current_mem) { }
161 0 3 if $self->_current_op == $IF
163 0 3 if ($self->_current_op == $EIF)
164 0 0 if ($nest_level) { }
172 1 2 unless $max_iterations
180 6 37 if (not $self->_get_current_mem) { }