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 (file)
--- 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);
         },
     );