From c86f490aeff5759d4f3689c2636a3c948283f6db Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Wed, 20 Nov 2019 11:02:47 -0500
Subject: [PATCH] Small speedup on hits

---
 lib/Class/Simple/Readonly/Cached.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Class/Simple/Readonly/Cached.pm b/lib/Class/Simple/Readonly/Cached.pm
index 1f03590..3790b2e 100644
--- a/lib/Class/Simple/Readonly/Cached.pm
+++ b/lib/Class/Simple/Readonly/Cached.pm
@@ -142,7 +142,6 @@ sub AUTOLOAD {
 
 	# my $func = $self->{'object'} . "::$param";
 	my $func = $param;
-	my $object = $self->{'object'};
 
 	# if($param =~ /^[gs]et_/) {
 		# # $param = "SUPER::$param";
@@ -180,6 +179,7 @@ sub AUTOLOAD {
 		}
 	}
 	$self->{_misses}{$key}++;
+	my $object = $self->{'object'};
 	if(wantarray) {
 		my @rc = $object->$func(@_);
 		if(scalar(@rc) == 0) {