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	27	173	if rand() < $self->settlement_chance
151	141	143	if ($coordinate % 2) { }
153	15	126	if $coordinate < $self->cols
154	15	126	if $coordinate >= ($self->rows - 1) * $self->cols
155	0	141	if $coordinate % $self->cols == 0
156	8	133	if $coordinate % $self->cols == $self->cols - 1
159	15	128	if $coordinate < $self->cols
160	13	130	if $coordinate >= ($self->rows - 1) * $self->cols
161	17	126	if $coordinate % $self->cols == 0
162	0	143	if $coordinate % $self->cols == $self->cols - 1
173	151	158	if $tiles->[$_]
199	17	107	unless @destinations
203	24	89	if ($rivers->[$next]) { }
	8	81	elsif ($self->is_sink($next, $tiles)) { }
215	74	7	if $result
247	6	670	if defined $rivers->[$coordinate] and $rivers->[$coordinate] == 0
248	133	537	if grep {$_ == $coordinate;} @$river
249	408	173	unless $_ eq "mountain"
265	200	0	if $tiles->[$i]
268	114	82	if ref $river and @$river > 1
276	0	470	if @_ > 1
277	243	227	unless ref $_[0]