[gitmo/Class-MOP.git] / lib / Class / MOP / Mixin.pm

package Class::MOP::Mixin;

use strict;
use warnings;

our $VERSION   = '1.12';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';

use Scalar::Util 'blessed';

sub meta {
    require Class::MOP::Class;
    Class::MOP::Class->initialize( blessed( $_[0] ) || $_[0] );
}

1;

__END__

=pod

=head1 NAME

Class::MOP::Mixin - Base class for mixin classes

=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<Class::MOP::Class> object for the mixin class.

=back

=head1 AUTHORS

Dave Rolsky E<lt>autarch@urth.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2006-2010 by Infinity Interactive, Inc.

L<http://www.iinteractive.com>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
Commit	Line	Data
9b871d79	1	package Class::MOP::Mixin;
	2
	3	use strict;
	4	use warnings;
	5
bd2550f8	6	our $VERSION = '1.12';
9b871d79	7	$VERSION = eval $VERSION;
	8	our $AUTHORITY = 'cpan:STEVAN';
	9
	10	use Scalar::Util 'blessed';
	11
	12	sub meta {
	13	require Class::MOP::Class;
	14	Class::MOP::Class->initialize( blessed( $_[0] ) \|\| $_[0] );
	15	}
	16
	17	1;
	18
	19	__END__
	20
	21	=pod
	22
	23	=head1 NAME
	24
	25	Class::MOP::Mixin - Base class for mixin classes
	26
	27	=head1 DESCRIPTION
	28
	29	This class provides a single method shared by all mixins
	30
	31	=head1 METHODS
	32
	33	This class provides a few methods which are useful in all metaclasses.
	34
	35	=over 4
	36
	37	=item B<< Class::MOP::Mixin->meta >>
	38
	39	This returns a L<Class::MOP::Class> object for the mixin class.
	40
	41	=back
	42
	43	=head1 AUTHORS
	44
	45	Dave Rolsky E<lt>autarch@urth.orgE<gt>
	46
	47	=head1 COPYRIGHT AND LICENSE
	48
3e2c8600	49	Copyright 2006-2010 by Infinity Interactive, Inc.
9b871d79	50
	51	L<http://www.iinteractive.com>
	52
	53	This library is free software; you can redistribute it and/or modify
	54	it under the same terms as Perl itself.
	55
	56	=cut