Branch Coverage

lib/Settlers/Game/Player.pm
Criterion Covered Total %
branch 49 74 66.2


line true false branch
45 0 0 if $self->{'resources'}{$_} > 0
95 0 30 unless @{$self->roads;} < 15
97 0 30 unless $self->has_connecting_property($location) or $self->has_connecting_road($location)
103 0 20 if @{$self->settlements;} == 2 and not $location->is_adjacent($self->settlements->[1]->location) and @{$self->roads;} == 1
105 18 12 unless $free
129 0 13 unless @{$self->settlements;} < 5
131 0 13 unless $free or $self->has_connecting_road($location)
134 5 8 unless $free
147 0 5 unless @{$self->cities;} < 4
153 5 8 if ($_->location->is_colliding($intersection)) { }
163 5 0 if ($city)
178 1 7 if $type eq 'VP'
187 0 8 unless $type
189 0 8 if $self->has_played_dc
192 0 8 if $type eq 'VP'
199 7 27 if ($_->type eq $type and not $card) { }
209 0 1 unless $card or scalar grep(($type eq $_->type), @{$$self{'cards_bought'};})
211 1 7 unless $card
239 65 388 $self->{'longest_road'} ? :
6 447 $self->{'largest_army'} ? :
245 0 1 $self->{'largest_army'} ? :
251 1 2 $self->{'longest_road'} ? :
271 350 1050 if grep $prop->location->is_colliding($_->location), @{$self->properties;}
295 0 3624 unless $paths and ref $paths eq 'ARRAY' and @$paths and $intersections and ref $intersections eq 'HASH' and keys %$intersections
308 4856 3264 if scalar grep($connecting_road->location->is_colliding($_->{'road'}->location), @$path)
312 1427 1837 if ($connecting_road->location->start eq $uuid) { }
1837 0 elsif ($connecting_road->location->end eq $uuid) { }
321 3264 0 if ($next_uuid)
330 2432 1192 if (@new_paths)
345 113 4 unless grep $h->{'location'}->is_adjacent($_->location), @{$self->properties;}
347 1 3 if ($h->{'code'} eq 'HR') { }
0 3 elsif ($h->{'code'} eq 'HRB') { }
0 3 elsif ($h->{'code'} eq 'HRG') { }
3 0 elsif ($h->{'code'} eq 'HRL') { }
0 0 elsif ($h->{'code'} eq 'HRO') { }
0 0 elsif ($h->{'code'} eq 'HRW') { }
351 5 0 if $v == 4