| line |
true |
false |
branch |
|
139
|
1 |
0 |
if $locator_dep |
|
140
|
1 |
0 |
if $locator_arr |
|
142
|
1 |
0 |
unless $lat_dep =~ /^\s\d+/ |
|
143
|
0 |
1 |
if $lat_dep =~ /^\s\d+/ |
|
144
|
0 |
1 |
unless $lat_arr =~ /^\s\d+/ |
|
145
|
1 |
0 |
if $lat_arr =~ /^\s\d+/ |
|
147
|
1 |
0 |
unless $long_dep =~ /^\s\d+/ |
|
148
|
0 |
1 |
if $long_dep =~ /^\s\d+/ |
|
149
|
0 |
1 |
unless $long_arr =~ /^\s\d+/ |
|
150
|
1 |
0 |
if $long_arr =~ /^\s\d+/ |
|
200
|
0 |
2 |
if ($error) |
|
222
|
1 |
2 |
if $latitude < 0 |
|
223
|
1 |
2 |
if $longitude < 0 |
|
224
|
2 |
1 |
if $longitude > 0 |
|
225
|
1 |
2 |
if $longitude < 0 |
|
249
|
0 |
5 |
if ($check{'_error'}) |
|
275
|
0 |
3 |
if (not $course =~ /$pattern/) { } |
|
278
|
0 |
3 |
if ($course < -360 or $course > 360) |
|
346
|
0 |
22 |
if ($4) { } |
|
347
|
22 |
0 |
if ($key and $coord{$key} =~ /$grad_match/) |
|
348
|
10 |
12 |
if ($2 eq 'S' or $2 eq 'W' or $2 eq '-') { } |
|
350
|
0 |
10 |
if ($2 eq 'S' and $coord_dec{$key . '_dec'} < -90) |
|
351
|
0 |
10 |
if ($2 eq 'W' and $coord_dec{$key . '_dec'} < -180) |
|
354
|
0 |
12 |
if ($2 eq 'N' and $coord_dec{$key . '_dec'} > 90) |
|
355
|
0 |
12 |
if ($2 eq 'E' and $coord_dec{$key . '_dec'} > 180) |
|
376
|
1 |
4 |
unless $origin_point |
|
377
|
0 |
5 |
if $date =~ /Error/ |
|
378
|
0 |
5 |
if $Lat =~ /Error/ |
|
379
|
0 |
5 |
if $Long =~ /Error/ |
|
387
|
0 |
5 |
if ($day =~ /Error/) |
|
396
|
0 |
5 |
if ($year <= 1585) |
|
398
|
5 |
0 |
if ($month - 9 < 0) |
|
421
|
0 |
5 |
if ($V < 0) |
|
433
|
0 |
5 |
if ($L > 3.1415926535897931) |
|
448
|
5 |
0 |
if ($DC > 0) { } |
|
455
|
0 |
5 |
if ($DC < 0) |
|
536
|
0 |
5 |
if ($day =~ /Error/) |
|
539
|
0 |
5 |
if ($Lat == 0 or $Long == 0) |
|
558
|
6 |
0 |
if (not $check =~ /Error/) { } |
|
597
|
0 |
6 |
if (not $date =~ /$pattern/) { } |
|
602
|
0 |
6 |
$part_of_date[0] <= 9 ? : |
|
603
|
6 |
0 |
$part_of_date[1] <= 9 ? : |
|
621
|
0 |
6 |
if ($intMonth > 12) |
|
623
|
6 |
0 |
if ($array_month{$intMonth} != 0 and $part_of_date[0] <= $array_month{$intMonth}) |
|
627
|
0 |
0 |
if ($intMonth == 0) |
|
628
|
0 |
0 |
if ($intDay > 0 and $intDay < 29) { } |
|
|
0 |
0 |
elsif ($intDay == 29) { } |
|
632
|
0 |
0 |
if ($intYear % 4 == 0 and $intYear % 100 != 0 or $intYear % 400 == 0) |
|
645
|
0 |
36 |
if ($coord{$key} =~ /Error/) |