Branch Coverage

perllib/Games/Affenspiel/Board.pm
Criterion Covered Total %
branch 0 124 0.0


line true false branch
72 0 0 if ($num == 1) { }
0 0 elsif ($num == 2) { }
110 0 0 $plain_ascii ? :
111 0 0 $plain_ascii ? :
112 0 0 $plain_ascii ? :
113 0 0 $plain_ascii ? :
114 0 0 $plain_ascii ? :
115 0 0 $plain_ascii ? :
131 0 0 defined $v ? :
151 0 0 if $$position[0] < 0 or $$position[1] < 0 or not $$self[$$position[0]]
162 0 0 unless $$self[$$position[0]][$$position[1]]
175 0 0 if $$self[$y][$x] eq ' '
191 0 0 $y1 == $y2 && abs $x1 - $x2 == 1 ? :
0 0 $x1 == $x2 && abs $y1 - $y2 == 1 ? :
218 0 0 $reverse ? :
0 0 if $direction eq ($reverse ? 'd' : 'u')
219 0 0 $reverse ? :
0 0 if $direction eq ($reverse ? 'u' : 'd')
220 0 0 $reverse ? :
0 0 if $direction eq ($reverse ? 'r' : 'l')
221 0 0 $reverse ? :
0 0 if $direction eq ($reverse ? 'l' : 'r')
230 0 0 if $cell eq 'O'
231 0 0 if $cell eq 'A' or $cell eq 'V'
232 0 0 if $cell eq '<' or $cell eq '>'
233 0 0 if $cell eq '/' or $cell eq '\\' or $cell eq '[' or $cell eq ']'
234 0 0 if $cell eq ' '
242 0 0 if $cell eq 'O'
243 0 0 if $cell eq 'A'
244 0 0 if $cell eq '<'
245 0 0 if $cell eq '/'
246 0 0 if $cell eq ' '
255 0 0 unless $self->get_cell_at($gap1_position) eq ' '
260 0 0 unless $bar
262 0 0 if ($bar == 1) { }
0 0 elsif ($bar == 2) { }
0 0 elsif ($bar == 3) { }
0 0 elsif ($bar == 4) { }
267 0 0 if ($self->is_hor($direction)) { }
268 0 0 $bar1_cell eq 'A' ? :
271 0 0 unless $self->get_cell_at($gap2_position) eq ' '
273 0 0 unless $self->get_bar_by_cell($bar2_cell) eq 2
287 0 0 if ($self->is_ver($direction)) { }
288 0 0 $bar1_cell eq '<' ? :
291 0 0 unless $self->get_cell_at($gap2_position) eq ' '
293 0 0 unless $self->get_bar_by_cell($bar2_cell) eq 3
307 0 0 $bar1_cell eq '[' ? :
0 0 $bar1_cell eq '\\' ? :
0 0 $bar1_cell eq '/' ? :
0 0 $bar1_cell eq '[' ? :
0 0 $bar1_cell eq '\\' ? :
0 0 $bar1_cell eq '/' ? :
0 0 $self->is_ver($direction) ? :
314 0 0 unless $self->get_cell_at($gap2_position) eq ' '
318 0 0 unless $self->get_bar_by_cell($bar2_cell) eq 4
327 0 0 if $ENV{'DEBUG_MOVES'}
358 0 0 unless $bar
360 0 0 if $$included_boards{$hash}
366 0 0 if $policy == 2 or $policy == 3
368 0 0 if $policy == 1 or $policy == 3
370 0 0 rand 2 < 1 ? :
0 0 if $policy == -1