| line |
true |
false |
branch |
|
27
|
0 |
4 |
unless my $zip = 'FileHandle'->new($options{'csvfile'}, 'r') |
|
62
|
0 |
121364 |
unless @postal_codes |
|
76
|
2 |
2 |
if ($options{'units'} and $_UNITS{lc $options{'units'}}) { } |
|
|
1 |
1 |
elsif ($options{'earth_radius'}) { } |
|
92
|
0 |
2434 |
unless $v |
|
101
|
0 |
3 |
unless $v |
|
112
|
0 |
5 |
unless $ra and $rb |
|
171
|
0 |
21 |
if ($x > 90) { } |
|
|
0 |
21 |
elsif ($x < -90) { } |
|
185
|
0 |
21 |
if ($x == 90) { } |
|
203
|
0 |
21 |
if ($lon_rtw and $lon_distance_degrees > 90) |
|
211
|
0 |
21 |
if ($max_lon - $min_lon == 360) |
|
218
|
0 |
61 |
if ($lon_rtw) |
|
225
|
8 |
53 |
unless _calculate_distance($lat, $lon, _test_near($lat, $x), _test_near($lon, $y), $$self{'_earth_radius'}) <= $distance |
|
232
|
4 |
49 |
unless $postal_code_str |
|
234
|
2 |
47 |
if (_calculate_distance($lat, $lon, _test_far($lat, $x), _test_far($lon, $y), $$self{'_earth_radius'}) <= $distance) { } |
|
246
|
0 |
0 |
if ($select{'distance'} or $select{'lat'} or $select{'lon'} or $select{'city'} or $select{'state'}) |
|
256
|
1040 |
4160 |
if ($field eq 'distance') { } |
|
|
0 |
4160 |
elsif ($field eq 'postal_code') { } |
|
|
1040 |
3120 |
elsif ($field eq 'lat') { } |
|
|
1040 |
2080 |
elsif ($field eq 'lon') { } |
|
271
|
1040 |
1040 |
unless $r |
|
292
|
7830 |
7143 |
if ($d <= $distance) |
|
295
|
4875 |
12516 |
if ($field eq 'distance') { } |
|
|
0 |
12516 |
elsif ($field eq 'postal_code') { } |
|
|
4875 |
7641 |
elsif ($field eq 'lat') { } |
|
|
4875 |
2766 |
elsif ($field eq 'lon') { } |
|
308
|
1383 |
1383 |
unless $r |
|
320
|
4 |
5 |
if ($order_by) |
|
321
|
0 |
4 |
if ($order_by eq 'city' or $order_by eq 'state') { } |
|
335
|
43 |
79 |
if (floor($center) == $cell) { } |
|
|
33 |
46 |
elsif ($cell < $center and _sign($cell) == _sign($center) || $center < 90) { } |
|
350
|
0 |
66 |
$_[0] == 0 ? : |
|
355
|
40 |
58 |
if (floor($center) == $cell) { } |
|
|
23 |
35 |
elsif ($cell < $center) { } |
|
356
|
12 |
28 |
if ($center - $cell < 0.5) { } |
|
384
|
30 |
21 |
$_[0] < $_[1] ? : |