1 package Class::MOP::MiniTrait;
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
11 my ( $to_class, $trait ) = @_;
13 for ( grep { !ref } $to_class, $trait ) {
14 Class::MOP::load_class($_);
15 $_ = Class::MOP::Class->initialize($_);
18 for my $meth ( $trait->get_all_methods ) {
19 my $meth_name = $meth->name;
21 if ( $to_class->find_method_by_name($meth_name) ) {
22 $to_class->add_around_method_modifier( $meth_name, $meth->body );
25 $to_class->add_method( $meth_name, $meth->clone );
38 Class::MOP::MiniTrait - Extremely limited trait application
42 This package provides a single function, C<apply>, which does a half-assed job
43 of applying a trait to a class. It exists solely for use inside Class::MOP and
44 L<Moose> core classes.
48 Stevan Little E<lt>stevan@iinteractive.comE<gt>
50 =head1 COPYRIGHT AND LICENSE
52 Copyright 2006-2010 by Infinity Interactive, Inc.
54 L<http://www.iinteractive.com>
56 This library is free software; you can redistribute it and/or modify
57 it under the same terms as Perl itself.