lib/Moose/Meta/Method/Meta.pm

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