=cut
our $VERSION = '0.01';
-our $DEBUG = 1;
+our $DEBUG = 0;
=head1 SYNOPSIS
# optional fields
benchmark => 'Public_AR_ACS2013', # default is "Public_AR_Current"
vintage => 'Census2010_ACS2013', # default is "Current_Current"
+
+ debug => 1, # will print the URL and some other info
};
my $result = Geo::USCensus::Geocoding->query($request);
sub query {
my $class = shift;
my %opt = (
- benchmark => 'Public_AR_Current',
- vintage => 'Current_Current',
+ benchmark => 'Public_AR_Census2010',
+ vintage => 'Census2010_Census2010',
);
if (ref $_[0] eq 'HASH') {
%opt = (%opt, %{ $_[0] });
%opt = (%opt, @_);
}
+ $DEBUG = $opt{debug} || 0;
$opt{format} = 'json';
foreach (qw(street city state zip)) {