fix coordinates

diff --git a/Geocoding.pm b/Geocoding.pm
index b1f3ea7..36828fa 100644 (file)
--- a/Geocoding.pm
+++ b/Geocoding.pm
@@ -128,9 +128,9 @@ sub query {
       $result->is_match(1);
       $result->match_level($fields[3]);
       $result->address($fields[4]);
-      my ($lat, $long) = split(',', $fields[5]);
-      $result->latitude($lat);
+      my ($long, $lat) = split(',', $fields[5]);
       $result->longitude($long);
+      $result->latitude($lat);
       $result->state($fields[8]);
       $result->county($fields[9]);
       $result->tract($fields[10]);

diff --git a/t/01-lookup.t b/t/01-lookup.t
index 6a3fb15..212ec4a 100644 (file)
--- a/t/01-lookup.t
+++ b/t/01-lookup.t
@@ -16,4 +16,5 @@ ok( $result->is_match );
 is( $result->error_message, '', 'error status' );
 diag($result->address);
 diag('Census tract '.$result->censustract);
+diag('Latitude '.$result->latitude.', Longitude '.$result->longitude);