Commit | Line | Data |
699a2e32 |
1 | |
2 | package Moose::Meta::Method::Meta; |
3 | |
4 | use strict; |
5 | use warnings; |
6 | |
699a2e32 |
7 | use base 'Moose::Meta::Method', |
8 | 'Class::MOP::Method::Meta'; |
9 | |
10 | sub _is_caller_mop_internal { |
11 | my $self = shift; |
12 | my ($caller) = @_; |
13 | return 1 if $caller =~ /^Moose(?:::|$)/; |
14 | return $self->SUPER::_is_caller_mop_internal($caller); |
15 | } |
16 | |
17 | # XXX: ugh multiple inheritance |
18 | sub wrap { |
19 | my $class = shift; |
20 | return $class->Class::MOP::Method::Meta::wrap(@_); |
21 | } |
22 | |
35085ce3 |
23 | sub _make_compatible_with { |
24 | my $self = shift; |
25 | return $self->Class::MOP::Method::Meta::_make_compatible_with(@_); |
26 | } |
27 | |
699a2e32 |
28 | 1; |
29 | |
ad46f524 |
30 | # ABSTRACT: A Moose Method metaclass for C<meta> methods |
31 | |
699a2e32 |
32 | __END__ |
33 | |
34 | =pod |
35 | |
699a2e32 |
36 | =head1 DESCRIPTION |
37 | |
38 | This class is a subclass of L<Class::MOP::Method::Meta> that |
39 | provides additional Moose-specific functionality, all of which is |
40 | private. |
41 | |
42 | To understand this class, you should read the the |
43 | L<Class::MOP::Method::Meta> documentation. |
44 | |
45 | =head1 BUGS |
46 | |
47 | See L<Moose/BUGS> for details on reporting bugs. |
48 | |
699a2e32 |
49 | =cut |