Deprecate hash-triggers

[gitmo/Mouse.git] / lib / Mouse / Meta / Attribute.pm

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 3deea32..230efb5 100644 (file)
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -277,8 +277,11 @@ sub validate_args {
                 after => $args->{trigger},
             };
         }
+        elsif (ref($args->{trigger}) eq 'HASH') {
+            Carp::carp "HASH-based form of trigger is deprecated. Please switch back to using the coderef form of trigger.";
+        }
 
-        confess "Trigger must be a CODE or HASH ref on attribute ($name)"
+        confess "Trigger must be a CODE ref on attribute ($name)"
             if ref($args->{trigger}) ne 'HASH';
     }