Report match level on failed matches

diff --git a/Geocoding.pm b/Geocoding.pm
index 36828fa..405ff18 100644 (file)
--- a/Geocoding.pm
+++ b/Geocoding.pm
@@ -137,6 +137,7 @@ sub query {
       $result->block($fields[11]);
     } else {
       $result->is_match(0);
       $result->block($fields[11]);
     } else {
       $result->is_match(0);

+      $result->match_level($fields[2]); # "No_Match", "Tie"

     }
   } else {
     $result->error_message( $resp->status_line );
     }
   } else {
     $result->error_message( $resp->status_line );

diff --git a/debian/changelog b/debian/changelog
index 9316d0d..4ca64bc 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+libgeo-uscensus-geocoding-perl (0.01-4) unstable; urgency=medium
+
+  * Report match level on failed matches
+
+ -- Mark Wells <mark@dancingmad.dyndns.org>  Mon, 06 Apr 2015 17:06:02 -0700
+

 libgeo-uscensus-geocoding-perl (0.01-3) unstable; urgency=low
 
   * No, really, allow Moo versions < 1.0
 libgeo-uscensus-geocoding-perl (0.01-3) unstable; urgency=low
 
   * No, really, allow Moo versions < 1.0