Release 0.34

Changes

@@ -1,6 +1,6 @@
 Revision history for Geo-Coder-List
 
-0.34
+0.34	Sat Oct 26 20:42:57 EDT 2024
 	Turn off on-line tests for smokers
 	Use Test::DescribeMe to simplify tests
 	new(): Use Scalar::Util to verify it's an object

README

@@ -1,4 +1,4 @@
-Geo-Coder-List Version 0.33
+Geo-Coder-List Version 0.34
 
 INSTALLATION
 

README.md

@@ -9,7 +9,7 @@ Geo::Coder::List - Call many Geo-Coders
 
 # VERSION
 
-Version 0.32
+Version 0.34
 
 # SYNOPSIS
 
@@ -95,7 +95,8 @@ to set the proxy information from environment variables:
     $ua->env_proxy(1);
     $geocoder_list->ua($ua);
 
-Note that unlike Geo::Coders there is no read method since that would be pointless.
+Note that unlike Geo::Coders,
+there is no read method since that would be pointless.
 
 ## reverse\_geocode
 

lib/Geo/Coder/List.pm

@@ -20,11 +20,11 @@ Geo::Coder::List - Call many Geo-Coders
 
 =head1 VERSION
 
-Version 0.33
+Version 0.34
 
 =cut
 
-our $VERSION = '0.33';
+our $VERSION = '0.34';
 our %locations;	# L1 cache, always used
 
 =head1 SYNOPSIS
@@ -770,13 +770,14 @@ sub _get_params
 
 	# Populate %rc based on the number and type of arguments
 	if(($num_args == 1) && (defined $default)) {
-		%rc = ($default => shift);
+		# %rc = ($default => shift);
+		return { $default => shift };
 	} elsif(($num_args % 2) == 0) {
 		%rc = @_;
 	} elsif($num_args == 1) {
-		Carp::croak("Usage: ", __PACKAGE__, "->", (caller(1))[3], "()");
+		Carp::croak('Usage: ', __PACKAGE__, '->', (caller(1))[3], '()');
 	} elsif($num_args == 0 && defined $default) {
-		Carp::croak("Usage: ", __PACKAGE__, "->", (caller(1))[3], "($default => \$val)");
+		Carp::croak('Usage: ', __PACKAGE__, '->', (caller(1))[3], '($default => \$val)');
 	}
 
 	return \%rc;