diff options
Diffstat (limited to 'Geocoding/Result.pm')
-rw-r--r-- | Geocoding/Result.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Geocoding/Result.pm b/Geocoding/Result.pm new file mode 100644 index 0000000..e0e271a --- /dev/null +++ b/Geocoding/Result.pm @@ -0,0 +1,23 @@ +package Geo::USCensus::Geocoding::Result; + +use Moo; # just for attribute declaration + +has 'is_match' => ( is => 'rw', default => 0 ); +has [ 'content', + 'match_level', + 'address', + 'state', + 'county', + 'tract', + 'block', + 'error_message', + 'latitude', + 'longitude' + ] => ( is => 'rw', default => '' ); + +sub censustract { + my $self = shift; + return join('', $self->state, $self->county, $self->tract); +} + +1; |