| line |
true |
false |
branch |
|
222
|
0 |
0 |
if ($hex->culture) |
|
224
|
0 |
0 |
if ($seen{$hex->culture}) { } |
|
230
|
0 |
0 |
unless $used{$colour} |
|
280
|
0 |
0 |
if ($self->source) |
|
335
|
0 |
0 |
unless $name |
|
338
|
0 |
0 |
unless $name |
|
339
|
0 |
0 |
if $x > $self->width |
|
340
|
0 |
0 |
if $y > $self->height |
|
355
|
0 |
0 |
$$_ eq '' ? : |
|
|
0 |
0 |
$$_ le 'H' ? : |
|
|
0 |
0 |
$$_ le 'Z' ? : |
|
|
0 |
0 |
$$_ le 'N' ? : |
|
|
0 |
0 |
if $$_ = $$_ ge 'P' and $$_ le 'Z' ? 23 + ord($$_) - 80 : $$_ ge 'J' and $$_ le 'N' ? 18 + ord($$_) - 74 : $$_ ge 'A' |
|
375
|
0 |
0 |
if $wiki |
|
376
|
0 |
0 |
if ($bases) |
|
395
|
0 |
0 |
unless $type |
|
396
|
0 |
0 |
if (lc $type eq 'c') { } |
|
413
|
0 |
0 |
if $hex->x == $x and $hex->y == $y |
|
421
|
0 |
0 |
if $self->comm_set |
|
424
|
0 |
0 |
if $hex->starport eq 'A' or $hex->naval or $hex->consulate |
|
437
|
0 |
0 |
unless $hex->travelzone |
|
440
|
0 |
0 |
if (not $best or $other->starport lt $best->starport or $other->starport eq $best->starport and distance($hex, $other) < distance($hex, $best)) |
|
455
|
0 |
0 |
if $self->trade_set |
|
464
|
0 |
0 |
if $hex->starport =~ /^[A-D]$/u || $hex->gasgiant || $hex->trade->{'Wa'} and $hex->travelzone ne 'R' |
|
469
|
0 |
0 |
if ($hex->trade->{'In'} or $hex->trade->{'Ht'}) { } |
|
|
0 |
0 |
elsif ($hex->trade->{'Hi'} or $hex->trade->{'Ri'}) { } |
|
471
|
0 |
0 |
if ($other->trade->{'As'} or $other->trade->{'De'} or $other->trade->{'Ic'} or $other->trade->{'Ni'}) |
|
476
|
0 |
0 |
if @route |
|
481
|
0 |
0 |
if ($other->trade->{'Ag'} or $other->trade->{'Ga'} or $other->trade->{'Wa'}) |
|
485
|
0 |
0 |
if @route |
|
503
|
0 |
0 |
if exists $seen{$start}{$end} or exists $seen{$end}{$start} |
|
531
|
0 |
0 |
if (not $C{$u} && $C{$v} or $C{$u} != $C{$v}) |
|
535
|
0 |
0 |
if ($C{$u} and $C{$v}) { } |
|
|
0 |
0 |
elsif ($C{$v} and not $C{$u}) { } |
|
|
0 |
0 |
elsif ($C{$u} and not $C{$v}) { } |
|
|
0 |
0 |
elsif (not $C{$u} || $C{$v}) { } |
|
538
|
0 |
0 |
if $C{$_} == $C{$v} |
|
560
|
0 |
0 |
$distance < 2 ? : |
|
561
|
0 |
0 |
unless in($hex, @seen) |
|
563
|
0 |
0 |
unless @options and $distance |
|
564
|
0 |
0 |
if (in($to, @options)) |
|
571
|
0 |
0 |
if (@route) |
|
575
|
0 |
0 |
unless @routes |
|
579
|
0 |
0 |
if ($#{$route;} < $#shortest or not @shortest) |