File Coverage

blib/lib/Moose/Meta/Method/Meta.pm
Criterion Covered Total %
statement 13 17 76.4
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 19 26 73.0


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