Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Class	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Method	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mixin	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Attribute.pm	30.54 KB	-rw-rw-rw-	2020-12-19 02:06
Class.pm	67.97 KB	-rw-rw-rw-	2020-12-19 02:06
Deprecated.pm	1.47 KB	-rw-rw-rw-	2020-12-19 02:06
Instance.pm	13.2 KB	-rw-rw-rw-	2020-12-19 02:06
Method.pm	8.29 KB	-rw-rw-rw-	2020-12-19 02:06
MiniTrait.pm	2.12 KB	-rw-rw-rw-	2020-12-19 02:06
Mixin.pm	1.71 KB	-rw-rw-rw-	2020-12-19 02:06
Module.pm	3.94 KB	-rw-rw-rw-	2020-12-19 02:06
Object.pm	3.78 KB	-rw-rw-rw-	2020-12-19 02:06
Overload.pm	7.13 KB	-rw-rw-rw-	2020-12-19 02:06
Package.pm	12.13 KB	-rw-rw-rw-	2020-12-19 02:06

Rename

package Class::MOP::MiniTrait;
our $VERSION = '2.2014';

use strict;
use warnings;

use Module::Runtime 'use_package_optimistically';

sub apply {
    my ( $to_class, $trait ) = @_;

for ( grep { !ref } $to_class, $trait ) {
        use_package_optimistically($_);
        $_ = Class::MOP::Class->initialize($_);
    }

for my $meth ( grep { $_->package_name ne 'UNIVERSAL' } $trait->get_all_methods ) {
        my $meth_name = $meth->name;
        next if index($meth_name, '__') == 0;   # skip private subs

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 Class::MOP::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 Class::MOP::Class.
require Class::MOP;

# ABSTRACT: Extremely limited trait application

__END__

=pod

=encoding UTF-8

=head1 NAME

Class::MOP::MiniTrait - Extremely limited trait application

=head1 VERSION

version 2.2014

=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 AUTHORS

=over 4

=item *

Stevan Little <stevan@cpan.org>

=item *

Dave Rolsky <autarch@urth.org>

=item *

Jesse Luehrs <doy@cpan.org>

=item *

Shawn M Moore <sartak@cpan.org>

=item *

יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>

=item *

Karen Etheridge <ether@cpan.org>

=item *

Florian Ragwitz <rafl@debian.org>

=item *

Hans Dieter Pearcey <hdp@cpan.org>

=item *

Chris Prather <chris@prather.org>

=item *

Matt S Trout <mstrout@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

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