override metaclass compat stuff in a trait for CMOP::Object subclasses

[gitmo/Moose.git] / lib / Moose / Meta / Method.pm

diff --git a/lib/Moose/Meta/Method.pm b/lib/Moose/Meta/Method.pm
index 1a58ce2..b25e19f 100644 (file)
--- a/lib/Moose/Meta/Method.pm
+++ b/lib/Moose/Meta/Method.pm
@@ -7,8 +7,12 @@ our $VERSION   = '1.14';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
+use Class::MOP::MiniTrait;
+
 use base 'Class::MOP::Method';
 
+Class::MOP::MiniTrait::apply(__PACKAGE__, 'Moose::Meta::Object::Trait');
+
 sub _error_thrower {
     my $self = shift;
     ( ref $self && $self->associated_metaclass ) || "Moose::Meta::Class";