Condition Coverage

lib/Traveller/Mapper.pm
Criterion Covered Total %
condition 0 98 0.0


and 3 conditions

line !l l&&!r l&&r condition
287 0 0 0 $x and $y
290 0 0 0 $x and $y
308 0 0 0 $$_ = $$_ ge "P" and $$_ le "Z" ? 23 + ord($$_) - 80 : $$_ ge "J"
0 0 0 $$_ = $$_ ge "P" and $$_ le "Z" ? 23 + ord($$_) - 80 : $$_ ge "J" and $$_ le "N" ? 18 + ord($$_) - 74 : $$_ ge "A"
367 0 0 0 $hex->x == $x and $hex->y == $y
394 0 0 0 $other->starport eq $best->starport and distance($hex, $other) < distance($hex, $best)
418 0 0 0 $hex->starport =~ /^[A-D]$/u || $hex->gasgiant || $hex->trade->{'Wa'} and $hex->travelzone ne "R"
485 0 0 0 $C{$u} && $C{$v}
489 0 0 0 $C{$u} and $C{$v}
0 0 0 $C{$v} and not $C{$u}
0 0 0 $C{$u} and not $C{$v}
517 0 0 0 @options and $distance

or 2 conditions

line l !l condition
89 0 0 $width //= 210
90 0 0 $height //= 297
299 0 0 $$_ //= ""
318 0 0 $culture // ""

or 3 conditions

line l !l&&r !l&&!r condition
199 0 0 0 $hex->colour || $self->colour($hex->culture)
318 0 0 0 shift @colours || $self->colour($culture)
378 0 0 0 $hex->starport eq "A" or $hex->naval
0 0 0 $hex->starport eq "A" or $hex->naval or $hex->consulate
394 0 0 0 not $best or $other->starport lt $best->starport
0 0 0 not $best or $other->starport lt $best->starport or $other->starport eq $best->starport and distance($hex, $other) < distance($hex, $best)
418 0 0 0 $hex->starport =~ /^[A-D]$/u || $hex->gasgiant || $hex->trade->{'Wa'}
423 0 0 0 $hex->trade->{'In'} or $hex->trade->{'Ht'}
0 0 0 $hex->trade->{'Hi'} or $hex->trade->{'Ri'}
425 0 0 0 $other->trade->{'As'} or $other->trade->{'De'}
0 0 0 $other->trade->{'As'} or $other->trade->{'De'} or $other->trade->{'Ic'}
0 0 0 $other->trade->{'As'} or $other->trade->{'De'} or $other->trade->{'Ic'} or $other->trade->{'Ni'}
435 0 0 0 $other->trade->{'Ag'} or $other->trade->{'Ga'}
0 0 0 $other->trade->{'Ag'} or $other->trade->{'Ga'} or $other->trade->{'Wa'}
457 0 0 0 exists $seen{$start}{$end} or exists $seen{$end}{$start}
485 0 0 0 not $C{$u} && $C{$v} or $C{$u} != $C{$v}
489 0 0 0 $C{$u} || $C{$v}
533 0 0 0 $#{$route;} < $#shortest or not @shortest