foop
Stevan Little [Thu, 31 May 2007 17:19:45 +0000 (17:19 +0000)]
lib/MooseX/AttributeHelpers.pm
lib/MooseX/AttributeHelpers/Collection/Hash.pm

index 138ceb8..dddde08 100644 (file)
@@ -19,12 +19,12 @@ __END__
 
 =head1 NAME
 
+MooseX::AttributeHelpers 
+
 =head1 SYNOPSIS
 
 =head1 DESCRIPTION
 
-=head1 METHODS
-
 =head1 BUGS
 
 All complex software has bugs lurking in it, and this module is no 
index 27f2a9e..6fa7bca 100644 (file)
@@ -12,6 +12,10 @@ sub helper_type { 'HashRef' }
 has '+method_constructors' => (
     default => sub {
         return +{
+            'exists' => sub {
+                my $attr = shift;
+                return sub { exists $attr->get_value($_[0])->{$_[1]} ? 1 : 0 };
+            },            
             'get' => sub {
                 my $attr = shift;
                 return sub { $attr->get_value($_[0])->{$_[1]} };