Geocoding/Result.pm

   1 package Geo::USCensus::Geocoding::Result;
   2
   3 use Moo; # just for attribute declaration
   4
   5 has 'is_match' => ( is => 'rw', default => 0 );
   6 foreach ( 'content',
   7           'match_level',
   8           'address',
   9           'state',
  10           'county',
  11           'tract',
  12           'block',
  13           'error_message',
  14           'latitude',
  15           'longitude'
  16         ) {
  17   has $_ => ( is => 'rw', default => '' );
  18 }
  19
  20 sub censustract {
  21   my $self = shift;
  22   return join('', $self->state, $self->county, $self->tract);
  23 }
  24
  25 1;