Branch Coverage

blib/lib/Games/Roguelike/Mob.pm
Criterion Covered Total %
branch 3 118 2.5


line true false branch
53 0 16 unless $area and $area->isa('Games::Roguelike::Area')
70 6 10 unless (defined $$self{'x'})
89 0 0 if (@_)
93 0 0 if ($$self{'area'}{'world'})
138 0 0 if (defined $cx) { }
169 0 0 if ($err > 0)
175 0 0 if $dx == 0 and $dy == 0
178 0 0 if ($dy > 0) { }
0 0 elsif ($dy < 0) { }
184 0 0 if ($dx > 0) { }
0 0 elsif ($dx < 0) { }
192 0 0 if $ok
195 0 0 if ($$self{'singleminded'} == 0 and rand 2 > 1 and $$self{'odir'})
197 0 0 if $ok
198 0 0 if $ok
204 0 0 if (abs $dy > abs $dx) { }
0 0 elsif (abs $dy < abs $dx) { }
214 0 0 if $ok
215 0 0 if $ok
218 0 0 if $$self{'singleminded'} > 1
223 0 0 if $ok
224 0 0 if $ok
225 0 0 if $ok
258 0 0 if ($c eq '.')
261 0 0 if ($c eq 'h' or $c eq 'LEFT')
264 0 0 if ($c eq 'l' or $c eq 'RIGHT')
267 0 0 if ($c eq 'j' or $c eq 'DOWN')
270 0 0 if ($c eq 'k' or $c eq 'UP')
273 0 0 if ($c eq 'y')
276 0 0 if ($c eq 'b')
279 0 0 if ($c eq 'u')
282 0 0 if ($c eq 'n')
300 0 0 if $m eq $self
301 0 0 if ($area->checkpov($self, $$m{'x'}, $$m{'y'}))
331 0 0 unless ($self->safetomove)
335 0 0 if (not $world and $$self{'autopath'} and @{$$self{'autopath'};})
337 0 0 if ($$self{'memory'}{$$self{'area'}{'name'}}[$$self{'autocx'}][$$self{'autocy'}])
347 0 0 unless $$self{'memory'}{$$self{'area'}{'name'}}[$$c[0]][$$c[1]]
354 0 0 if $tx < 0 or $ty < 0
355 0 0 if $tx >= $$area{'w'} or $ty >= $$area{'h'}
357 0 0 if $bread[$tx][$ty]
362 0 0 unless ($seen)
371 0 0 unless defined $$area{'map'}[$tx][$ty]
372 0 0 if $$area{'map'}[$tx][$ty] eq ''
375 0 0 if index($$area{'nomove'}, $$area{'map'}[$tx][$ty]) >= 0
381 0 0 if ($path)
382 0 0 if (not $world) { }
384 0 0 unless ($$self{'memory'}{$$self{'area'}{'name'}}[$cx][$cy])
395 0 0 if ($bc eq 'q' or $bc eq 'ESC')
401 0 0 unless $stm
403 0 0 if ($$self{'memory'}{$$self{'area'}{'name'}}[$cx][$cy])
407 0 0 if (not $stm) { }
439 0 0 unless ($testonly)
440 0 0 if ($r > 0) { }
0 0 elsif ($r < 0) { }
489 0 0 unless $$self{'area'}{'map'}[$x][$y] eq $$self{'area'}{'fsym'}
490 0 0 if $othermob
520 0 0 unless $self->isa('Games::Roguelike::Mob')
524 0 0 if ($_ == $ob)