/usr/lib/perl5/Class/MOP/MiniTrait.pm is in libmoose-perl 2.0401-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | package Class::MOP::MiniTrait;
BEGIN {
$Class::MOP::MiniTrait::AUTHORITY = 'cpan:STEVAN';
}
{
$Class::MOP::MiniTrait::VERSION = '2.0401';
}
use strict;
use warnings;
use Class::Load qw(load_class);
sub apply {
my ( $to_class, $trait ) = @_;
for ( grep { !ref } $to_class, $trait ) {
load_class($_);
$_ = Class::MOP::Class->initialize($_);
}
for my $meth ( grep { $_->package_name ne 'UNIVERSAL' } $trait->get_all_methods ) {
my $meth_name = $meth->name;
if ( $to_class->find_method_by_name($meth_name) ) {
$to_class->add_around_method_modifier( $meth_name, $meth->body );
}
else {
$to_class->add_method( $meth_name, $meth->clone );
}
}
}
# We can't load this with use, since it may be loaded and used from Class::MOP
# (via CMOP::Class, etc). However, if for some reason this module is loaded
# _without_ first loading Class::MOP we need to require Class::MOP so we can
# use it and CMOP::Class.
require Class::MOP;
1;
# ABSTRACT: Extremely limited trait application
=pod
=head1 NAME
Class::MOP::MiniTrait - Extremely limited trait application
=head1 VERSION
version 2.0401
=head1 DESCRIPTION
This package provides a single function, C<apply>, which does a half-assed job
of applying a trait to a class. It exists solely for use inside Class::MOP and
L<Moose> core classes.
=head1 AUTHOR
Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details.
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 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
__END__
|