Added defined for AH

[gitmo/MooseX-AttributeHelpers.git] / lib / MooseX / AttributeHelpers / MethodProvider / ImmutableHash.pm

diff --git a/lib/MooseX/AttributeHelpers/MethodProvider/ImmutableHash.pm b/lib/MooseX/AttributeHelpers/MethodProvider/ImmutableHash.pm
index a118f41..36484e0 100644 (file)
--- a/lib/MooseX/AttributeHelpers/MethodProvider/ImmutableHash.pm
+++ b/lib/MooseX/AttributeHelpers/MethodProvider/ImmutableHash.pm
@@ -10,6 +10,11 @@ sub exists : method {
     return sub { CORE::exists $reader->($_[0])->{$_[1]} ? 1 : 0 };
 }   
 
+sub defined : method {
+    my ($attr, $reader, $writer) = @_;    
+    return sub { CORE::defined $reader->($_[0])->{$_[1]} ? 1 : 0 };
+}   
+
 sub get : method {
     my ($attr, $reader, $writer) = @_;    
     return sub {