From 9c5e55dee57384a1210044f95f459de72ce063f5 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Fri, 13 Mar 2015 17:32:24 -0700
Subject: [PATCH] fix coordinates

---
 Geocoding.pm  | 4 ++--
 t/01-lookup.t | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Geocoding.pm b/Geocoding.pm
index b1f3ea7..36828fa 100644
--- 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
--- 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);
 
-- 
2.11.0