Commit | Line | Data |
39b3bc94 |
1 | |
2 | package Moose::Meta::Role::Method; |
3 | |
4 | use strict; |
5 | use warnings; |
6 | |
d874ffad |
7 | our $VERSION = '1.20'; |
75b95414 |
8 | $VERSION = eval $VERSION; |
d44714be |
9 | our $AUTHORITY = 'cpan:STEVAN'; |
39b3bc94 |
10 | |
fbdb609d |
11 | use base 'Moose::Meta::Method'; |
39b3bc94 |
12 | |
630f7baa |
13 | sub _make_compatible_with { |
14 | my $self = shift; |
15 | my ($other) = @_; |
16 | |
17 | # XXX: this is pretty gross. the issue here is blah blah blah |
18 | # see the comments in CMOP::Method::Meta and CMOP::Method::Wrapped |
19 | return $self unless $other->_is_compatible_with($self->_real_ref_name); |
20 | |
21 | return $self->SUPER::_make_compatible_with(@_); |
22 | } |
23 | |
39b3bc94 |
24 | 1; |
25 | |
26 | __END__ |
27 | |
28 | =pod |
29 | |
30 | =head1 NAME |
31 | |
ecb59493 |
32 | Moose::Meta::Role::Method - A Moose Method metaclass for Roles |
39b3bc94 |
33 | |
34 | =head1 DESCRIPTION |
35 | |
d03bd989 |
36 | This is primarily used to mark methods coming from a role |
ecb59493 |
37 | as being different. Right now it is nothing but a subclass |
5cf3cd62 |
38 | of L<Moose::Meta::Method>. |
39b3bc94 |
39 | |
40 | =head1 BUGS |
41 | |
d4048ef3 |
42 | See L<Moose/BUGS> for details on reporting bugs. |
39b3bc94 |
43 | |
44 | =head1 AUTHOR |
45 | |
46 | Stevan Little E<lt>stevan@iinteractive.comE<gt> |
47 | |
39b3bc94 |
48 | =head1 COPYRIGHT AND LICENSE |
49 | |
7e0492d3 |
50 | Copyright 2006-2010 by Infinity Interactive, Inc. |
39b3bc94 |
51 | |
52 | L<http://www.iinteractive.com> |
53 | |
54 | This library is free software; you can redistribute it and/or modify |
55 | it under the same terms as Perl itself. |
56 | |
07b0f1a5 |
57 | =cut |