allow Moo < 1.0

[Geo-USCensus-Geocoding.git] / Geocoding / Result.pm

diff --git a/Geocoding/Result.pm b/Geocoding/Result.pm
index e0e271a..bf595ca 100644 (file)
--- 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 );
 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;
 
 sub censustract {
   my $self = shift;