1 package Geo::USCensus::Geocoding::Match;
10 my $self = { %$address };
16 $self->{matchedAddress};
24 sub addressComponents {
26 $self->{addressComponents};
36 return '' unless $self->geographies
37 and exists($self->geographies->{'Census Tracts'})
38 and exists($self->geographies->{'Census Tracts'}->[0]);
39 my $ct = $self->geographies->{'Census Tracts'}->[0];
40 return $ct->{STATE} . $ct->{COUNTY} . $ct->{TRACT};