BUILDALL for generated constructor

[gitmo/Role-Tiny.git] / lib / Method / Generate / BuildAll.pm

diff --git a/lib/Method/Generate/BuildAll.pm b/lib/Method/Generate/BuildAll.pm
index b7895b8..3b4b363 100644 (file)
--- a/lib/Method/Generate/BuildAll.pm
+++ b/lib/Method/Generate/BuildAll.pm
@@ -8,14 +8,19 @@ use Class::Tiny::_Utils;
 
 sub generate_method {
   my ($self, $into) = @_;
+  quote_sub "${into}::BUILDALL", join '',
+    qq{    my \$self = shift;\n},
+    $self->buildall_body_for($into, '$self', '@_'),
+    qq{    return \$self\n};
+}
+
+sub buildall_body_for {
+  my ($self, $into, $me, $args) = @_;
   my @builds =
     grep *{_getglob($_)}{CODE},
     map "${_}::BUILD",
     reverse @{mro::get_linear_isa($into)};
-  quote_sub "${into}::BUILDALL", join '',
-    qq{    my \$self = shift;\n},
-    (map qq{    \$self->${_}(\@_);\n}, @builds),
-    qq{    return \$self\n};
+  join '', map qq{    ${me}->${_}(${args});\n}, @builds;
 }
 
 1;