1package Moose::Meta::Method::Meta; 2our $VERSION = '2.2201'; 3 4use strict; 5use warnings; 6 7use parent 'Moose::Meta::Method', 8 'Class::MOP::Method::Meta'; 9 10sub _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 18sub wrap { 19 my $class = shift; 20 return $class->Class::MOP::Method::Meta::wrap(@_); 21} 22 23sub _make_compatible_with { 24 my $self = shift; 25 return $self->Class::MOP::Method::Meta::_make_compatible_with(@_); 26} 27 281; 29 30# ABSTRACT: A Moose Method metaclass for C<meta> methods 31 32__END__ 33 34=pod 35 36=encoding UTF-8 37 38=head1 NAME 39 40Moose::Meta::Method::Meta - A Moose Method metaclass for C<meta> methods 41 42=head1 VERSION 43 44version 2.2201 45 46=head1 DESCRIPTION 47 48This class is a subclass of L<Class::MOP::Method::Meta> that 49provides additional Moose-specific functionality, all of which is 50private. 51 52To understand this class, you should read the 53L<Class::MOP::Method::Meta> documentation. 54 55=head1 BUGS 56 57See L<Moose/BUGS> for details on reporting bugs. 58 59=head1 AUTHORS 60 61=over 4 62 63=item * 64 65Stevan Little <stevan@cpan.org> 66 67=item * 68 69Dave Rolsky <autarch@urth.org> 70 71=item * 72 73Jesse Luehrs <doy@cpan.org> 74 75=item * 76 77Shawn M Moore <sartak@cpan.org> 78 79=item * 80 81יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org> 82 83=item * 84 85Karen Etheridge <ether@cpan.org> 86 87=item * 88 89Florian Ragwitz <rafl@debian.org> 90 91=item * 92 93Hans Dieter Pearcey <hdp@cpan.org> 94 95=item * 96 97Chris Prather <chris@prather.org> 98 99=item * 100 101Matt S Trout <mstrout@cpan.org> 102 103=back 104 105=head1 COPYRIGHT AND LICENSE 106 107This software is copyright (c) 2006 by Infinity Interactive, Inc. 108 109This is free software; you can redistribute it and/or modify it under 110the same terms as the Perl 5 programming language system itself. 111 112=cut 113