| Server IP : 85.214.239.14 / Your IP : 3.140.198.3 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/root/proc/3/root/proc/3/cwd/lib/x86_64-linux-gnu/perl5/5.36/Class/MOP/ |
Upload File : |
package Class::MOP::Mixin;
our $VERSION = '2.2203';
use strict;
use warnings;
use Scalar::Util 'blessed';
use Module::Runtime 'use_module';
sub meta {
require Class::MOP::Class;
Class::MOP::Class->initialize( blessed( $_[0] ) || $_[0] );
}
sub _throw_exception {
my ($class, $exception_type, @args_to_exception) = @_;
die use_module( "Moose::Exception::$exception_type" )->new( @args_to_exception );
}
1;
# ABSTRACT: Base class for mixin classes
__END__
=pod
=encoding UTF-8
=head1 NAME
Class::MOP::Mixin - Base class for mixin classes
=head1 VERSION
version 2.2203
=head1 DESCRIPTION
This class provides a few methods which are useful in all metaclasses.
=head1 METHODS
=head2 Class::MOP::Mixin->meta
This returns a L<Class::MOP::Class> object for the mixin class.
=head2 Class::MOP::Mixin->_throw_exception
Throws an exception in the L<Moose::Exception> family. This should ONLY be
used internally -- any callers outside Class::MOP::* should be using the
version in L<Moose::Util> instead.
=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 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