Branch Coverage

blib/lib/Game/TextMapper/Apocalypse.pm

Criterion	Covered	Total	%
branch	41	46	89.1

line	true	false	branch
128	0	1	if $self->loglevel
141	25	175	if rand() < $self->settlement_chance
151	142	146	if ($coordinate % 2) { }
153	13	129	if $coordinate < $self->cols
154	16	126	if $coordinate >= ($self->rows - 1) * $self->cols
155	0	142	if $coordinate % $self->cols == 0
156	15	127	if $coordinate % $self->cols == $self->cols - 1
159	13	133	if $coordinate < $self->cols
160	16	130	if $coordinate >= ($self->rows - 1) * $self->cols
161	13	133	if $coordinate % $self->cols == 0
162	0	146	if $coordinate % $self->cols == $self->cols - 1
173	152	163	if $tiles->[$_]
199	28	100	unless @destinations
203	33	69	if ($rivers->[$next]) { }
	15	54	elsif ($self->is_sink($next, $tiles)) { }
215	50	4	if $result
247	4	695	if defined $rivers->[$coordinate] and $rivers->[$coordinate] == 0
248	75	620	if grep {$_ == $coordinate;} @$river
249	346	313	unless $_ eq "mountain"
265	200	0	if $tiles->[$i]
268	113	87	if ref $river and @$river > 1
276	0	489	if @_ > 1
277	274	215	unless ref $_[0]