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 (file)
--- 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>