Release 0.03

Changes

@@ -1,7 +1,7 @@
 Revision history for Class::Simple::Readonly::Cached
 
-0.03
-	Added the objet() method
+0.03	Sun Sep 29 05:12:19 PDT 2019
+	Added the object() method
 
 0.02	Fri Sep 27 03:43:56 PDT 2019
 	Added hash mode

README.md

@@ -4,7 +4,7 @@ Class::Simple::Readonly::Cached - cache messages to an object
 
 # VERSION
 
-Version 0.02
+Version 0.03
 
 # SYNOPSIS
 
@@ -35,6 +35,10 @@ which is an object which is taken to be the object to be cached.
 If not given, an object of the class [Class::Simple](https://metacpan.org/pod/Class::Simple) is instantiated
 and that is used.
 
+## object
+
+Return the encapsulated objet
+
 # AUTHOR
 
 Nigel Horne, `<njh at bandsman.co.uk>`

lib/Class/Simple/Readonly/Cached.pm

@@ -13,11 +13,11 @@ Class::Simple::Readonly::Cached - cache messages to an object
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 SYNOPSIS
 
@@ -67,14 +67,15 @@ sub new {
 		%args = @_;
 	}
 
+	if(!$args{'cache'}) {
+		Carp::carp('Usage: ', __PACKAGE__, '->new(cache => $cache [, object => $object ], %args)');
+	}
+
 	if(!defined($args{'object'})) {
 		$args{'object'} = Class::Simple->new(%args);
 	}
 
-	if($args{'cache'}) {
-		return bless \%args, $class;
-	}
-	Carp::carp('Usage: ', __PACKAGE__, '->new(cache => $cache [, object => $object ], %args)');
+	return bless \%args, $class;
 }
 
 =head2 object
@@ -109,16 +110,18 @@ sub AUTOLOAD {
 	my $cache = $self->{'cache'};
 
 	if($param eq 'DESTROY') {
-		if(ref($cache) eq 'HASH') {
-			foreach my $key(keys %{$cache}) {
-				delete $cache->{$key};
+		if($cache) {
+			if(ref($cache) eq 'HASH') {
+				foreach my $key(keys %{$cache}) {
+					delete $cache->{$key};
+				}
+				return;
 			}
-			return;
-		}
-		if(defined($^V) && ($^V ge 'v5.14.0')) {
-			return if ${^GLOBAL_PHASE} eq 'DESTRUCT';	# >= 5.14.0 only
+			if(defined($^V) && ($^V ge 'v5.14.0')) {
+				return if ${^GLOBAL_PHASE} eq 'DESTRUCT';	# >= 5.14.0 only
+			}
+			$cache->clear();
 		}
-		$cache->clear();
 		return;
 	}