lib/Moose/Meta/Method/Meta.pm

   1
   2 package Moose::Meta::Method::Meta;
   3
   4 use strict;
   5 use warnings;
   6
   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
  23 sub _make_compatible_with {
  24     my $self = shift;
  25     return $self->Class::MOP::Method::Meta::_make_compatible_with(@_);
  26 }
  27
  28 1;
  29
  30 # ABSTRACT: A Moose Method metaclass for C<meta> methods
  31
  32 __END__
  33
  34 =pod
  35
  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
  49 =cut