>
>
> after has_a => sub {
> my ($class, $method_name) = (shift, shift);
>
> my $method = Moose::Meta::Method->wrap(
> associated_metaclass => $class->meta,
> package_name => $class,
> name => $method_name,
> body => $class->meta->get_all_package_symbols('CODE')->{$method_name},
> );
>
> $class->meta->add_method($method_name => $method);
> };
>
OK, that's neat. Perhaps even neater than the Sub::Name suggestion. I'll add
it to my list to investigate. This problem actually screams for a
MooseX::ImportGlobs kind of a module. It feels like one ought to be able to
dig around, find all the unnamed globs and import them into meta with a single
line of code.
I am not quite a good enough Moose'ician as someone recently put it yet, but
I'll put it on my someday-maybe list.
