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) {