Commit | Line | Data |
---|---|---|
39b3bc94 | 1 | |
2 | package Moose::Meta::Role::Method; | |
3 | ||
4 | use strict; | |
5 | use warnings; | |
6 | ||
d44714be | 7 | our $AUTHORITY = 'cpan:STEVAN'; |
39b3bc94 | 8 | |
fbdb609d | 9 | use base 'Moose::Meta::Method'; |
39b3bc94 | 10 | |
630f7baa | 11 | sub _make_compatible_with { |
12 | my $self = shift; | |
13 | my ($other) = @_; | |
14 | ||
15 | # XXX: this is pretty gross. the issue here is blah blah blah | |
16 | # see the comments in CMOP::Method::Meta and CMOP::Method::Wrapped | |
17 | return $self unless $other->_is_compatible_with($self->_real_ref_name); | |
18 | ||
19 | return $self->SUPER::_make_compatible_with(@_); | |
20 | } | |
21 | ||
39b3bc94 | 22 | 1; |
23 | ||
ad46f524 | 24 | # ABSTRACT: A Moose Method metaclass for Roles |
25 | ||
39b3bc94 | 26 | __END__ |
27 | ||
28 | =pod | |
29 | ||
39b3bc94 | 30 | =head1 DESCRIPTION |
31 | ||
d03bd989 | 32 | This is primarily used to mark methods coming from a role |
ecb59493 | 33 | as being different. Right now it is nothing but a subclass |
5cf3cd62 | 34 | of L<Moose::Meta::Method>. |
39b3bc94 | 35 | |
36 | =head1 BUGS | |
37 | ||
d4048ef3 | 38 | See L<Moose/BUGS> for details on reporting bugs. |
39b3bc94 | 39 | |
07b0f1a5 | 40 | =cut |