line |
true |
false |
branch |
454
|
0 |
15 |
if ($ss >= 60) { } |
456
|
0 |
0 |
if ++$m >= 60 |
470
|
12 |
3 |
unless $val =~ s/:(\d{2}\.\d+)$// |
472
|
0 |
3 |
if $s < 10 |
487
|
0 |
99 |
unless (length $val) |
489
|
0 |
0 |
if $doPrintConv and $doPrintConv eq 1 |
492
|
36 |
63 |
if ($ref) { } |
493
|
17 |
19 |
if ($val < 0) { } |
500
|
19 |
17 |
unless $doPrintConv and $doPrintConv eq 2 |
505
|
68 |
31 |
if ($doPrintConv) { } |
506
|
51 |
17 |
if ($doPrintConv eq '1') { } |
508
|
30 |
21 |
if (not $fmt) { } |
|
10 |
11 |
elsif ($ref) { } |
512
|
10 |
0 |
unless $fmt =~ s/%\+/$sign%/g |
521
|
0 |
182 |
if $1 eq "%%" |
523
|
46 |
136 |
if @fmt >= 3 |
531
|
99 |
0 |
if ($num > 1) |
534
|
77 |
22 |
if ($num > 2) |
540
|
68 |
31 |
$doPrintConv ? : |
541
|
0 |
99 |
if ($c[-1] >= 60) |
543
|
0 |
0 |
if ($c[-2] += 1) >= 60 and $num > 2 |
546
|
68 |
31 |
if ($doPrintConv) { } |
549
|
17 |
51 |
if $doPrintConv eq 2 |
565
|
0 |
223 |
if $val =~ /\b(inf|undef)\b/ |
567
|
0 |
5 |
if ($coord and $coord eq 'lat' || $coord eq 'lon' and $val =~ /^(.*(?:N(?:orth)?|S(?:outh)?)),\s*(.*(?:E(?:ast)?|W(?:est)?))$/i) |
571
|
0 |
0 |
$coord eq 'lat' ? : |
575
|
0 |
223 |
unless defined $d |
578
|
190 |
33 |
$doSign ? : |
|
1 |
222 |
if $doSign ? $val =~ /[^A-Z](S(outh)?|W(est)?)\s*$/i : $deg < 0 |