| line |
true |
false |
branch |
|
182
|
0 |
0 |
unless my $culture = shift() |
|
232
|
0 |
0 |
if ($self->source) |
|
287
|
0 |
0 |
unless $x and $y |
|
290
|
0 |
0 |
unless $x and $y |
|
291
|
0 |
0 |
if $x > $self->width |
|
292
|
0 |
0 |
if $y > $self->height |
|
308
|
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" |
|
329
|
0 |
0 |
if $wiki |
|
330
|
0 |
0 |
if ($bases) |
|
349
|
0 |
0 |
unless $type |
|
350
|
0 |
0 |
if (lc $type eq 'c') { } |
|
367
|
0 |
0 |
if $hex->x == $x and $hex->y == $y |
|
375
|
0 |
0 |
if $self->comm_set |
|
378
|
0 |
0 |
if $hex->starport eq "A" or $hex->naval or $hex->consulate |
|
391
|
0 |
0 |
unless $hex->travelzone |
|
394
|
0 |
0 |
if (not $best or $other->starport lt $best->starport or $other->starport eq $best->starport and distance($hex, $other) < distance($hex, $best)) |
|
409
|
0 |
0 |
if $self->trade_set |
|
418
|
0 |
0 |
if $hex->starport =~ /^[A-D]$/u || $hex->gasgiant || $hex->trade->{'Wa'} and $hex->travelzone ne "R" |
|
423
|
0 |
0 |
if ($hex->trade->{'In'} or $hex->trade->{'Ht'}) { } |
|
|
0 |
0 |
elsif ($hex->trade->{'Hi'} or $hex->trade->{'Ri'}) { } |
|
425
|
0 |
0 |
if ($other->trade->{'As'} or $other->trade->{'De'} or $other->trade->{'Ic'} or $other->trade->{'Ni'}) |
|
430
|
0 |
0 |
if @route |
|
435
|
0 |
0 |
if ($other->trade->{'Ag'} or $other->trade->{'Ga'} or $other->trade->{'Wa'}) |
|
439
|
0 |
0 |
if @route |
|
457
|
0 |
0 |
if exists $seen{$start}{$end} or exists $seen{$end}{$start} |
|
485
|
0 |
0 |
if (not $C{$u} && $C{$v} or $C{$u} != $C{$v}) |
|
489
|
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}) { } |
|
492
|
0 |
0 |
if $C{$_} == $C{$v} |
|
514
|
0 |
0 |
$distance < 2 ? : |
|
515
|
0 |
0 |
unless in($hex, @seen) |
|
517
|
0 |
0 |
unless @options and $distance |
|
518
|
0 |
0 |
if (in($to, @options)) |
|
525
|
0 |
0 |
if (@route) |
|
529
|
0 |
0 |
unless @routes |
|
533
|
0 |
0 |
if ($#{$route;} < $#shortest or not @shortest) |