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