Error if there's something wrong in the cache

Changes

@@ -4,6 +4,7 @@ Revision history for Geo-Coder-List
 	Fix test count in t/googleplaces.t
 	Don't test t/ua.t when network testing disabled
 	Use Test::Needs
+	Error if there's something wrong in the cache
 
 0.32	Sat Oct  7 10:07:45 EDT 2023
 	Set "geocoder" to "cached" when the values have been retrieved from the L2 cache

bin/address_lookup

@@ -11,6 +11,7 @@ use FindBin qw($Bin);
 use lib "$Bin/../lib";
 use CHI;
 use File::Basename;
+use File::HomeDir;
 use File::Spec;
 use Geo::Coder::Bing;
 use Geo::Coder::CA;

lib/Geo/Coder/List.pm

@@ -183,13 +183,16 @@ sub geocode {
 				if(ref($_) eq 'HASH') {
 					if(defined($_->{geometry}{location}{lat})) {
 						$allempty = 0;
-						delete $_->{'geocoder'};
+						$_->{'geocoder'} = 'cached';
 					} else {
 						delete $_->{'geometry'};
 					}
 				} elsif(ref($_) eq 'Geo::Location::Point') {
 					$allempty = 0;
-					delete $_->{'geocoder'};
+					$_->{'geocoder'} = 'cached';
+				} else {
+					print STDERR Data::Dumper->new([\@rc])->Dump();
+					Carp::croak(ref($self), " '$location': unexpected item in the cache");
 				}
 			}
 			my $log = {
@@ -209,7 +212,7 @@ sub geocode {
 		}
 	}
 
-	my $error;
+	# my $error;
 
 	ENCODER: foreach my $g(@{$self->{geocoders}}) {
 		my $geocoder = $g;
@@ -254,7 +257,7 @@ sub geocode {
 			};
 			CORE::push @{$self->{'log'}}, $log;
 			Carp::carp(ref($geocoder), " '$location': $@");
-			$error = $@;
+			# $error = $@;
 			next ENCODER;
 		}
 		$timetaken = Time::HiRes::time() - $timetaken;

t/vars.t

@@ -2,14 +2,13 @@
 
 use strict;
 use warnings;
+
 use Test::Most;
+use Test::Needs 'Test::Vars';
 
-if(not $ENV{AUTHOR_TESTING}) {
+if($ENV{'AUTHOR_TESTING'}) {
+	Test::Vars->import();
+	all_vars_ok(ignore_vars => { '$self' => 0 });
+} else {
 	plan(skip_all => 'Author tests not required for installation');
 }
-
-eval 'use Test::Vars';
-
-plan(skip_all => 'Test::Vars required for detecting unused variables') if $@;
-
-all_vars_ok(ignore_vars => { '$self' => 0 });