X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FBuildAll.pm;fp=lib%2FMethod%2FGenerate%2FBuildAll.pm;h=b7895b830001ded18938fbaec9df8ff14b65dbcd;hb=098a367be3b5fed11db98bef906ae31303fee5d3;hp=0000000000000000000000000000000000000000;hpb=1947330aa6283819f0e7606fae1dfe732afdae6a;p=gitmo%2FMoo.git

diff --git a/lib/Method/Generate/BuildAll.pm b/lib/Method/Generate/BuildAll.pm
new file mode 100644
index 0000000..b7895b8
--- /dev/null
+++ b/lib/Method/Generate/BuildAll.pm
@@ -0,0 +1,21 @@
+package Method::Generate::BuildAll;
+
+use strictures 1;
+use base qw(Class::Tiny::Object);
+use Sub::Quote;
+use Class::Tiny::_mro;
+use Class::Tiny::_Utils;
+
+sub generate_method {
+  my ($self, $into) = @_;
+  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};
+}
+
+1;