Add future ideas file

[gitmo/MooseX-AttributeHelpers.git] / lib / MooseX / AttributeHelpers / Collection / Hash.pm

diff --git a/lib/MooseX/AttributeHelpers/Collection/Hash.pm b/lib/MooseX/AttributeHelpers/Collection/Hash.pm
index 6fa7bca..1e6ac2a 100644 (file)
--- a/lib/MooseX/AttributeHelpers/Collection/Hash.pm
+++ b/lib/MooseX/AttributeHelpers/Collection/Hash.pm
@@ -50,6 +50,10 @@ has '+method_constructors' => (
                 my $attr = shift;
                 return sub { scalar keys %{$attr->get_value($_[0])} ? 1 : 0 };        
             }
+            'delete' => sub {
+                my $attr = shift;
+                return sub { delete $attr->get_value($_[0])->{$_[1]} };
+            }
         }
     }
 );