From: octo <octo>
Date: Sun, 10 Apr 2005 16:34:09 +0000 (+0000)
Subject: Implemented ``del'' as required by the interface.
X-Git-Tag: Release-0.8.0~20^2~30
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=aa252e66f2618579fb230dfd0020ca56d0ceae7e;p=onis.git

Implemented ``del'' as required by the interface.
---

diff --git a/lib/Onis/Data/Persistent/None.pm b/lib/Onis/Data/Persistent/None.pm
index b9a7020..35a0dec 100644
--- a/lib/Onis/Data/Persistent/None.pm
+++ b/lib/Onis/Data/Persistent/None.pm
@@ -117,6 +117,17 @@ sub keys
 	}, @keys);
 }
 
+sub del
+{
+	my $obj = shift;
+	my $key = shift;
+
+	if (defined ($obj->{'data'}{$key}))
+	{
+		delete ($obj->{'data'}{$key});
+	}
+}
+
 =head1 AUTHOR
 
 Florian octo Forster, L<octo@verplant.org>