Geocoding/Result.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;