X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=023ab4dfba502f059477195247b1c2d192b0448a;hb=506db55746832b617f871f2e9b7429c68452f710;hp=050ec49c2c2ece61e39e50b7ca0435972220e143;hpb=1bbaa8edd19af95a395eb59d34602c1b85def6d6;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 050ec49..023ab4d 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -256,9 +256,17 @@ sub validate_args {
         && $args->{isa} ne 'ArrayRef'
         && $args->{isa} ne 'HashRef';
 
-    confess "Trigger must be a CODE or HASH ref on attribute ($name)"
-        if $args{trigger}
-        && ref($args{trigger}) ne 'CODE' && ref($args{trigger}) ne 'HASH';
+    if ($args->{trigger}) {
+        if (ref($args->{trigger}) eq 'CODE') {
+            $args->{trigger} = {
+                after => $args->{trigger},
+            };
+        }
+
+        confess "Trigger must be a CODE or HASH ref on attribute ($name)"
+            if $args->{trigger}
+            && ref($args->{trigger}) ne 'HASH';
+    }
 
     return 1;
 }