X-Git-Url: http://git.freeside.biz/gitweb/?p=Geo-USCensus-Geocoding.git;a=blobdiff_plain;f=Geocoding%2FResult.pm;fp=Geocoding%2FResult.pm;h=bf595ca1e25d764abb8331f997903a45d491ea1c;hp=e0e271a397f0c04df7e4e3e9eeefe9c731de5331;hb=f81bdf93c112e3222ba9f0be2477fd3403fdc9f5;hpb=9c5e55dee57384a1210044f95f459de72ce063f5 diff --git a/Geocoding/Result.pm b/Geocoding/Result.pm index e0e271a..bf595ca 100644 --- a/Geocoding/Result.pm +++ b/Geocoding/Result.pm @@ -3,17 +3,19 @@ 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 => '' ); +foreach ( 'content', + 'match_level', + 'address', + 'state', + 'county', + 'tract', + 'block', + 'error_message', + 'latitude', + 'longitude' + ) { + has $_ => ( is => 'rw', default => '' ); +} sub censustract { my $self = shift;