—package
Moose::Meta::Object::Trait;
$Moose::Meta::Object::Trait::VERSION
=
'2.1306'
;
# TRIAL
sub
_get_compatible_metaclass {
my
$orig
=
shift
;
my
$self
=
shift
;
return
$self
->
$orig
(
@_
)
||
$self
->_get_compatible_metaclass_by_role_reconciliation(
@_
);
}
sub
_get_compatible_metaclass_by_role_reconciliation {
my
$self
=
shift
;
my
(
$other_name
) =
@_
;
my
$meta_name
= blessed(
$self
) ?
$self
->_real_ref_name :
$self
;
return
unless
Moose::Util::_classes_differ_by_roles_only(
$meta_name
,
$other_name
);
return
Moose::Util::_reconcile_roles_for_metaclass(
$meta_name
,
$other_name
);
}
1;
# ABSTRACT: Some overrides for L<Class::MOP::Object> functionality
__END__
=pod
=encoding UTF-8
=head1 NAME
Moose::Meta::Object::Trait - Some overrides for L<Class::MOP::Object> functionality
=head1 VERSION
version 2.1306
=head1 DESCRIPTION
This module is entirely private, you shouldn't ever need to interact with
it directly.
=head1 BUGS
See L<Moose/BUGS> for details on reporting bugs.
=head1 AUTHORS
=over 4
=item *
Stevan Little <stevan.little@iinteractive.com>
=item *
Dave Rolsky <autarch@urth.org>
=item *
Jesse Luehrs <doy@tozt.net>
=item *
Shawn M Moore <code@sartak.org>
=item *
יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
=item *
Karen Etheridge <ether@cpan.org>
=item *
Florian Ragwitz <rafl@debian.org>
=item *
Hans Dieter Pearcey <hdp@weftsoar.net>
=item *
Chris Prather <chris@prather.org>
=item *
Matt S Trout <mst@shadowcat.co.uk>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2006 by Infinity Interactive, Inc..
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut