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	18	182	if rand() < $self->settlement_chance
151	143	135	if ($coordinate % 2) { }
153	13	130	if $coordinate < $self->cols
154	14	129	if $coordinate >= ($self->rows - 1) * $self->cols
155	0	143	if $coordinate % $self->cols == 0
156	18	125	if $coordinate % $self->cols == $self->cols - 1
159	12	123	if $coordinate < $self->cols
160	15	120	if $coordinate >= ($self->rows - 1) * $self->cols
161	10	125	if $coordinate % $self->cols == 0
162	0	135	if $coordinate % $self->cols == $self->cols - 1
173	154	127	if $tiles->[$_]
199	22	96	unless @destinations
203	18	88	if ($rivers->[$next]) { }
	9	79	elsif ($self->is_sink($next, $tiles)) { }
215	57	22	if $result
247	17	617	if defined $rivers->[$coordinate] and $rivers->[$coordinate] == 0
248	139	478	if grep {$_ == $coordinate;} @$river
249	357	139	unless $_ eq "mountain"
265	200	0	if $tiles->[$i]
268	93	107	if ref $river and @$river > 1
276	0	438	if @_ > 1
277	239	199	unless ref $_[0]