1 package Geo::USCensus::Geocoding::Match;
11 my $self = { %$address };
17 $self->{matchedAddress};
25 sub addressComponents {
27 $self->{addressComponents};
37 my $geo = $self->{geographies};
38 my $block_info = $geo->{'2010 Census Blocks'}; # XXX change this in 2020
39 if ($block_info and exists($block_info->[0])) {
40 return $block_info->[0];
42 warn "2010 Census Blocks element not found in response\n";
43 warn Dumper $self->{geographies};
50 my $block = $self->block_info or return '';
51 return $block->{STATE} . $block->{COUNTY} . $block->{TRACT};