File Coverage

blib/lib/Moose/Meta/Object/Trait.pm
Criterion Covered Total %
statement 11 11 100.0
branch 4 4 100.0
condition 3 3 100.0
subroutine 3 3 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Moose::Meta::Object::Trait;
2             our $VERSION = '2.2205';
3              
4 392     392   205356 use Scalar::Util qw(blessed);
  392         970  
  392         75753  
5              
6             sub _get_compatible_metaclass {
7 221     221   405 my $orig = shift;
8 221         617 my $self = shift;
9 221   100     578 return $self->$orig(@_)
10             || $self->_get_compatible_metaclass_by_role_reconciliation(@_);
11             }
12              
13             sub _get_compatible_metaclass_by_role_reconciliation {
14 63     63   118 my $self = shift;
15 63         125 my ($other_name) = @_;
16 63 100       286 my $meta_name = blessed($self) ? $self->_real_ref_name : $self;
17              
18 63 100       261 return unless Moose::Util::_classes_differ_by_roles_only(
19             $meta_name, $other_name
20             );
21              
22 61         194 return Moose::Util::_reconcile_roles_for_metaclass(
23             $meta_name, $other_name
24             );
25             }
26              
27             1;
28              
29             # ABSTRACT: Some overrides for L<Class::MOP::Object> functionality
30              
31             __END__
32              
33             =pod
34              
35             =encoding UTF-8
36              
37             =head1 NAME
38              
39             Moose::Meta::Object::Trait - Some overrides for L<Class::MOP::Object> functionality
40              
41             =head1 VERSION
42              
43             version 2.2205
44              
45             =head1 DESCRIPTION
46              
47             This module is entirely private, you shouldn't ever need to interact with
48             it directly.
49              
50             =head1 BUGS
51              
52             See L<Moose/BUGS> for details on reporting bugs.
53              
54             =head1 AUTHORS
55              
56             =over 4
57              
58             =item *
59              
60             Stevan Little <stevan@cpan.org>
61              
62             =item *
63              
64             Dave Rolsky <autarch@urth.org>
65              
66             =item *
67              
68             Jesse Luehrs <doy@cpan.org>
69              
70             =item *
71              
72             Shawn M Moore <sartak@cpan.org>
73              
74             =item *
75              
76             יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
77              
78             =item *
79              
80             Karen Etheridge <ether@cpan.org>
81              
82             =item *
83              
84             Florian Ragwitz <rafl@debian.org>
85              
86             =item *
87              
88             Hans Dieter Pearcey <hdp@cpan.org>
89              
90             =item *
91              
92             Chris Prather <chris@prather.org>
93              
94             =item *
95              
96             Matt S Trout <mstrout@cpan.org>
97              
98             =back
99              
100             =head1 COPYRIGHT AND LICENSE
101              
102             This software is copyright (c) 2006 by Infinity Interactive, Inc.
103              
104             This is free software; you can redistribute it and/or modify it under
105             the same terms as the Perl 5 programming language system itself.
106              
107             =cut