108 lines
1.7 KiB
Perl
108 lines
1.7 KiB
Perl
package Class::MOP::Mixin;
|
|
our $VERSION = '2.2014';
|
|
|
|
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.2014
|
|
|
|
=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
|