1 package Class::MOP::MiniTrait;
7 my ( $to_class, $trait ) = @_;
9 for ( grep { !ref } $to_class, $trait ) {
10 Class::MOP::load_class($_);
11 $_ = Class::MOP::Class->initialize($_);
14 for my $meth ( $trait->get_all_methods ) {
15 my $meth_name = $meth->name;
17 if ( $to_class->find_method_by_name($meth_name) ) {
18 $to_class->add_around_method_modifier( $meth_name, $meth->body );
21 $to_class->add_method( $meth_name, $meth->clone );
26 # We can't load this with use, since it may be loaded and used from Class::MOP
27 # (via CMOP::Class, etc). However, if for some reason this module is loaded
28 # _without_ first loading Class::MOP we need to require Class::MOP so we can
29 # use it and CMOP::Class.
40 Class::MOP::MiniTrait - Extremely limited trait application
44 This package provides a single function, C<apply>, which does a half-assed job
45 of applying a trait to a class. It exists solely for use inside Class::MOP and
46 L<Moose> core classes.