Allow trigger to be a hashref.. :)
Shawn M Moore [Wed, 16 Jul 2008 05:15:05 +0000 (05:15 +0000)]
lib/Mouse/Meta/Attribute.pm
t/016-trigger.t

index 4237806..011ff4e 100644 (file)
@@ -254,9 +254,9 @@ sub validate_args {
         && $args{isa} ne 'ArrayRef'
         && $args{isa} ne 'HashRef';
 
-    confess "Trigger must be a CODE ref on attribute ($name)"
+    confess "Trigger must be a CODE or HASH ref on attribute ($name)"
         if $args{trigger}
-        && ref($args{trigger}) ne 'CODE';
+        && ref($args{trigger}) ne 'CODE' && ref($args{trigger}) ne 'HASH';
 
     return 1;
 }
index 2a4dc94..99bf942 100644 (file)
@@ -31,7 +31,7 @@ do {
             is => 'ro',
             trigger => [],
         );
-    } qr/Trigger must be a CODE ref on attribute \(error\)/;
+    } qr/Trigger must be a CODE or HASH ref on attribute \(error\)/;
 };
 
 can_ok(Class => 'attr');