2 package Moose::Meta::Role::Method;
7 use base 'Moose::Meta::Method';
9 sub _make_compatible_with {
13 # XXX: this is pretty gross. the issue here is blah blah blah
14 # see the comments in CMOP::Method::Meta and CMOP::Method::Wrapped
15 return $self unless $other->_is_compatible_with($self->_real_ref_name);
17 return $self->SUPER::_make_compatible_with(@_);
22 # ABSTRACT: A Moose Method metaclass for Roles
30 This is primarily used to mark methods coming from a role
31 as being different. Right now it is nothing but a subclass
32 of L<Moose::Meta::Method>.
36 See L<Moose/BUGS> for details on reporting bugs.