package Class::MOP::Mixin; BEGIN { $Class::MOP::Mixin::AUTHORITY = 'cpan:STEVAN'; } $Class::MOP::Mixin::VERSION = '2.1204'; use strict; use warnings; use Scalar::Util 'blessed'; sub meta { require Class::MOP::Class; Class::MOP::Class->initialize( blessed( $_[0] ) || $_[0] ); } 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.1204 =head1 DESCRIPTION This class provides a single method shared by all mixins =head1 METHODS This class provides a few methods which are useful in all metaclasses. =over 4 =item B<< Class::MOP::Mixin->meta >> This returns a L object for the mixin class. =back =head1 AUTHORS =over 4 =item * Stevan Little =item * Dave Rolsky =item * Jesse Luehrs =item * Shawn M Moore =item * יובל קוג'מן (Yuval Kogman) =item * Karen Etheridge =item * Florian Ragwitz =item * Hans Dieter Pearcey =item * Chris Prather =item * Matt S Trout =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