From: Shawn M Moore <sartak@gmail.com>
Date: Wed, 1 Apr 2009 03:09:19 +0000 (-0400)
Subject: Fix use of meta-attr in trigger
X-Git-Tag: 0.20~55
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ca3f17580caa4ac8fcf2c4ab323d7b5907f037b;hp=88b6c018ca804f12a431dacf12bb52d0df169e4c;p=gitmo%2FMouse.git

Fix use of meta-attr in trigger
---

diff --git a/t/018-multiattr-has.t b/t/018-multiattr-has.t
index 8fb97f0..acd258b 100644
--- a/t/018-multiattr-has.t
+++ b/t/018-multiattr-has.t
@@ -8,13 +8,14 @@ do {
     package Class;
     use Mouse;
 
-    has [qw/a b c/] => (
-        is => 'rw',
-        trigger => sub {
-            my ($self, $value, $attr) = @_;
-            $trigger{$attr->name}++;
-        },
-    );
+    for my $attr (qw/a b c/) {
+        has $attr => (
+            is => 'rw',
+            trigger => sub {
+                $trigger{$attr}++;
+            },
+        );
+    }
 };
 
 can_ok(Class => qw/a b c/);