blob: 578448a454629c3808f7398b01f0110262098744 (
plain)
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
package Class::MOP::Mixin;
our $VERSION = '2.1405';
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.1405
=head1 DESCRIPTION
This class provides a few methods which are useful in all metaclasses.
=head1 METHODS
=over 4
=item B<< Class::MOP::Mixin->meta >>
This returns a L<Class::MOP::Class> object for the mixin class.
=item B<< 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.
=back
=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
|
