autoboxing

[gitmo/Moose-Autobox.git] / lib / Moose / Autobox / Hash.pm

diff --git a/lib/Moose/Autobox/Hash.pm b/lib/Moose/Autobox/Hash.pm
index 52238c7..50d77dc 100644 (file)
--- a/lib/Moose/Autobox/Hash.pm
+++ b/lib/Moose/Autobox/Hash.pm
@@ -3,7 +3,15 @@ use Moose::Role 'with';
 
 our $VERSION = '0.01';
 
-with 'Moose::Autobox::Ref';
+with 'Moose::Autobox::Ref',
+     'Moose::Autobox::Indexed';
+
+sub delete { 
+    my ($hash, $key) = @_;
+    CORE::delete $hash->{$key}; 
+}
+
+# ::Indexed implementation
 
 sub exists { 
     my ($hash, $key) = @_;