# required fields
street => '123 Main Street',
city => 'San Francisco', # city
- state => 'CA', # state/province
- zip => '93102', # zip/postal code
+ state => 'CA', # state
# optional fields
+ zip => '93102', # zip code
benchmark => 'Public_AR_ACS2013', # default is "Public_AR_Current"
vintage => 'Census2010_ACS2013', # default is "Current_Current"
my @row = ( 1 ); # first element = row identifier
# at some point support multiple rows in a single query?
+ if (!$opt{street}) {
+ $result->error_message("Street address is required.");
+ return $result;
+ }
+ if (!$opt{zip} and (!$opt{city} or !$opt{state})) {
+ $result->error_message("Either city/state or zip code is required.");
+ return $result;
+ }
foreach (qw(street city state zip)) {
- if (!length($opt{$_})) {
- $result->error_message("$_ required");
- return $result;
- }
- push @row, $opt{$_};
+ push @row, $opt{$_} || '';
}
$csv->combine(@row);