Fixed a couple of typos.
[gitmo/Moose.git] / lib / Moose / Meta / Method / Meta.pm
CommitLineData
699a2e32 1
2package Moose::Meta::Method::Meta;
3
4use strict;
5use warnings;
6
bb8ef151 7our $VERSION = '1.9900';
699a2e32 8$VERSION = eval $VERSION;
9our $AUTHORITY = 'cpan:STEVAN';
10
11use base 'Moose::Meta::Method',
12 'Class::MOP::Method::Meta';
13
14sub _is_caller_mop_internal {
15 my $self = shift;
16 my ($caller) = @_;
17 return 1 if $caller =~ /^Moose(?:::|$)/;
18 return $self->SUPER::_is_caller_mop_internal($caller);
19}
20
21# XXX: ugh multiple inheritance
22sub wrap {
23 my $class = shift;
24 return $class->Class::MOP::Method::Meta::wrap(@_);
25}
26
35085ce3 27sub _make_compatible_with {
28 my $self = shift;
29 return $self->Class::MOP::Method::Meta::_make_compatible_with(@_);
30}
31
699a2e32 321;
33
34__END__
35
36=pod
37
38=head1 NAME
39
40Moose::Meta::Method::Meta - A Moose Method metaclass for C<meta> methods
41
42=head1 DESCRIPTION
43
44This class is a subclass of L<Class::MOP::Method::Meta> that
45provides additional Moose-specific functionality, all of which is
46private.
47
48To understand this class, you should read the the
49L<Class::MOP::Method::Meta> documentation.
50
51=head1 BUGS
52
53See L<Moose/BUGS> for details on reporting bugs.
54
55=head1 AUTHOR
56
57Jesse Luehrs E<lt>doy at tozt dot net<gt>
58
59=head1 COPYRIGHT AND LICENSE
60
61Copyright 2006-2010 by Infinity Interactive, Inc.
62
63L<http://www.iinteractive.com>
64
65This library is free software; you can redistribute it and/or modify
66it under the same terms as Perl itself.
67
68=cut