Branch Coverage

blib/lib/Language/Befunge/Interpreter.pm
Criterion Covered Total %
branch 70 72 97.2


line true false branch
97 71 21 unless (exists $$opts{'syntax'})
99 1 70 if $$opts{'dims'} =~ /\D/
106 67 3 if (exists $defaults{$$opts{'dims'}}) { }
119 6 1 unless defined $$opts{'dims'}
120 6 1 unless defined $$opts{'ops'}
121 6 1 unless defined $$opts{'storage'}
122 6 1 unless defined $$opts{'wrapping'}
125 1 67 unless defined $$opts{'dims'}
126 67 1 unless defined $$opts{'ops'}
127 66 2 unless defined $$opts{'storage'}
128 67 1 unless defined $$opts{'wrapping'}
131 6 2 unless defined $$opts{'dims'}
132 7 1 unless defined $$opts{'ops'}
133 7 1 unless defined $$opts{'storage'}
134 7 1 unless defined $$opts{'wrapping'}
137 3 4 unless defined $$opts{'dims'}
138 6 1 unless defined $$opts{'ops'}
139 6 1 unless defined $$opts{'storage'}
140 6 1 unless defined $$opts{'wrapping'}
169 3 83 if defined $$opts{'file'}
199 1 3115 if exists $seen_before{$pos}
205 719 2396 if ($char eq ' ')
212 26 2370 if ($char eq ';')
259 4 58 if length $self->_get_input
262 51 7 if length $char
281 1 6 unless open BF, "<$file"
366 2741 0 unless defined $continue
378 385 2356 if ($ip->get_string_mode) { }
379 36 349 if ($char eq '"') { }
8 341 elsif ($char eq ' ') { }
400 2733 0 if ($continue)
403 385 2348 if ($ip->get_string_mode) { }
408 2535 198 unless $ip->get_end
422 2422 14 if (exists $self->get_ops->{$char}) { }
454 6113 221 if ($v->bounds_check($storage->min, $storage->max)) { }
482 1 1680 if $ip->get_position == $orig