File Coverage

blib/lib/Moose/Meta/Role/Method.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Moose::Meta::Role::Method;
2             our $VERSION = '2.2205';
3              
4 378     378   3041 use strict;
  378         995  
  378         12413  
5 378     378   2255 use warnings;
  378         1140  
  378         10929  
6              
7 378     378   2170 use parent 'Moose::Meta::Method';
  378         1116  
  378         2389  
8              
9             sub _make_compatible_with {
10 5     5   59 my $self = shift;
11 5         24 my ($other) = @_;
12              
13             # XXX: this is pretty gross. the issue here is blah blah blah
14             # see the comments in CMOP::Method::Meta and CMOP::Method::Wrapped
15 5 50       46 return $self unless $other->_is_compatible_with($self->_real_ref_name);
16              
17 5         32 return $self->SUPER::_make_compatible_with(@_);
18             }
19              
20             1;
21              
22             # ABSTRACT: A Moose Method metaclass for Roles
23              
24             __END__
25              
26             =pod
27              
28             =encoding UTF-8
29              
30             =head1 NAME
31              
32             Moose::Meta::Role::Method - A Moose Method metaclass for Roles
33              
34             =head1 VERSION
35              
36             version 2.2205
37              
38             =head1 DESCRIPTION
39              
40             This is primarily used to mark methods coming from a role
41             as being different. Right now it is nothing but a subclass
42             of L<Moose::Meta::Method>.
43              
44             =head1 BUGS
45              
46             See L<Moose/BUGS> for details on reporting bugs.
47              
48             =head1 AUTHORS
49              
50             =over 4
51              
52             =item *
53              
54             Stevan Little <stevan@cpan.org>
55              
56             =item *
57              
58             Dave Rolsky <autarch@urth.org>
59              
60             =item *
61              
62             Jesse Luehrs <doy@cpan.org>
63              
64             =item *
65              
66             Shawn M Moore <sartak@cpan.org>
67              
68             =item *
69              
70             יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
71              
72             =item *
73              
74             Karen Etheridge <ether@cpan.org>
75              
76             =item *
77              
78             Florian Ragwitz <rafl@debian.org>
79              
80             =item *
81              
82             Hans Dieter Pearcey <hdp@cpan.org>
83              
84             =item *
85              
86             Chris Prather <chris@prather.org>
87              
88             =item *
89              
90             Matt S Trout <mstrout@cpan.org>
91              
92             =back
93              
94             =head1 COPYRIGHT AND LICENSE
95              
96             This software is copyright (c) 2006 by Infinity Interactive, Inc.
97              
98             This is free software; you can redistribute it and/or modify it under
99             the same terms as the Perl 5 programming language system itself.
100              
101             =cut