summaryrefslogtreecommitdiff
path: root/Geocoding/Match.pm
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2015-03-04 12:10:04 -0800
committerMark Wells <mark@freeside.biz>2015-03-04 12:10:04 -0800
commitc16e8ca7ab01db1321d407a8eba212440b0c97c9 (patch)
tree91129c285ec04914f2f33198cde83a69900016e5 /Geocoding/Match.pm
parent83646ffc2d229a706bdf3f90bf3cc8834c03106f (diff)
switch to CSV API for better reliability, prepare 0.01 release
Diffstat (limited to 'Geocoding/Match.pm')
-rw-r--r--Geocoding/Match.pm54
1 files changed, 0 insertions, 54 deletions
diff --git a/Geocoding/Match.pm b/Geocoding/Match.pm
deleted file mode 100644
index b4a7675..0000000
--- a/Geocoding/Match.pm
+++ /dev/null
@@ -1,54 +0,0 @@
-package Geo::USCensus::Geocoding::Match;
-
-use strict;
-use Data::Dumper;
-
-sub new {
- my $class = shift;
- my $address = shift;
- my $census = shift;
-
- my $self = { %$address };
- bless $self, $class;
-}
-
-sub matchedAddress {
- my $self = shift;
- $self->{matchedAddress};
-}
-
-sub coordinates {
- my $self = shift;
- $self->{coordinates};
-}
-
-sub addressComponents {
- my $self = shift;
- $self->{addressComponents};
-}
-
-sub geographies {
- my $self = shift;
- $self->{geographies};
-}
-
-sub block_info {
- my $self = shift;
- my $geo = $self->{geographies};
- my $block_info = $geo->{'2010 Census Blocks'}; # XXX change this in 2020
- if ($block_info and exists($block_info->[0])) {
- return $block_info->[0];
- } else {
- warn "2010 Census Blocks element not found in response\n";
- warn Dumper $self->{geographies};
- return '';
- }
-}
-
-sub censustract {
- my $self = shift;
- my $block = $self->block_info or return '';
- return $block->{STATE} . $block->{COUNTY} . $block->{TRACT};
-}
-
-1;