From: Ricardo SIGNES <rjbs@cpan.org>
Date: Thu, 7 Feb 2008 03:47:19 +0000 (+0000)
Subject: cope with fixed initializer arg order in mop
X-Git-Tag: 0_37~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29ed9dd92b8b5dabe0a4adbc169ddd72a46bf641;p=gitmo%2FMoose.git

cope with fixed initializer arg order in mop
---

diff --git a/t/020_attributes/019_attribute_lazy_initializer.t b/t/020_attributes/019_attribute_lazy_initializer.t
index c41381d..e139a34 100644
--- a/t/020_attributes/019_attribute_lazy_initializer.t
+++ b/t/020_attributes/019_attribute_lazy_initializer.t
@@ -18,7 +18,7 @@ BEGIN {
         reader => 'get_foo',
         writer => 'set_foo',
         initializer => sub {
-            my ($self, $value, $name, $callback) = @_;
+            my ($self, $value, $callback, $attr) = @_;
             $callback->($value * 2);
         },
     );
@@ -27,7 +27,7 @@ BEGIN {
         reader  => 'get_lazy_foo',
         default => 10,
         initializer => sub {
-            my ($self, $value, $name, $callback) = @_;
+            my ($self, $value, $callback, $attr) = @_;
             $callback->($value * 2);
         },
     );