switch to CSV API for better reliability, prepare 0.01 release

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;