1 package Method::Generate::BuildAll;
4 use base qw(Class::Tiny::Object);
7 use Class::Tiny::_Utils;
10 my ($self, $into) = @_;
12 grep *{_getglob($_)}{CODE},
14 reverse @{mro::get_linear_isa($into)};
15 quote_sub "${into}::BUILDALL", join '',
16 qq{ my \$self = shift;\n},
17 (map qq{ \$self->${_}(\@_);\n}, @builds),