line |
true |
false |
branch |
434
|
0 |
15 |
if ($ss >= 60) { } |
436
|
0 |
0 |
if ++$m >= 60 |
450
|
13 |
2 |
unless $val =~ s/:(\d{2}\.\d+)$// |
452
|
0 |
2 |
if $s < 10 |
467
|
0 |
99 |
unless (length $val) |
469
|
0 |
0 |
if $doPrintConv and $doPrintConv eq 1 |
472
|
36 |
63 |
if ($ref) { } |
473
|
15 |
21 |
if ($val < 0) { } |
480
|
19 |
17 |
unless $doPrintConv and $doPrintConv eq 2 |
485
|
68 |
31 |
if ($doPrintConv) { } |
486
|
51 |
17 |
if ($doPrintConv eq '1') { } |
488
|
28 |
23 |
if (not $fmt) { } |
|
13 |
10 |
elsif ($ref) { } |
492
|
13 |
0 |
unless $fmt =~ s/%\+/$sign%/g |
501
|
0 |
179 |
if $1 eq "%%" |
503
|
43 |
136 |
if @fmt >= 3 |
511
|
99 |
0 |
if ($num > 1) |
514
|
74 |
25 |
if ($num > 2) |
520
|
68 |
31 |
$doPrintConv ? : |
521
|
0 |
99 |
if ($c[-1] >= 60) |
523
|
0 |
0 |
if ($c[-2] += 1) >= 60 and $num > 2 |
526
|
68 |
31 |
if ($doPrintConv) { } |
529
|
17 |
51 |
if $doPrintConv eq 2 |
545
|
0 |
223 |
if $val =~ /\b(inf|undef)\b/ |
547
|
0 |
5 |
if ($coord and $coord eq 'lat' || $coord eq 'lon' and $val =~ /^(.*(?:N(?:orth)?|S(?:outh)?)),\s*(.*(?:E(?:ast)?|W(?:est)?))$/i) |
551
|
0 |
0 |
$coord eq 'lat' ? : |
555
|
0 |
223 |
unless defined $d |
558
|
189 |
34 |
$doSign ? : |
|
1 |
222 |
if $doSign ? $val =~ /[^A-Z](S(outh)?|W(est)?)\s*$/i : $deg < 0 |