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

package Class::MOP::Mixin;

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

=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

=cut
Commit	Line	Data
38bf2a25	1	package Class::MOP::Mixin;
	2
	3	use strict;
	4	use warnings;
	5
38bf2a25	6	use Scalar::Util 'blessed';
	7
	8	sub meta {
	9	require Class::MOP::Class;
	10	Class::MOP::Class->initialize( blessed( $_[0] ) \|\| $_[0] );
	11	}
	12
	13	1;
	14
	15	# ABSTRACT: Base class for mixin classes
	16
	17	__END__
	18
	19	=pod
	20
	21	=head1 DESCRIPTION
	22
	23	This class provides a single method shared by all mixins
	24
	25	=head1 METHODS
	26
	27	This class provides a few methods which are useful in all metaclasses.
	28
	29	=over 4
	30
	31	=item B<< Class::MOP::Mixin->meta >>
	32
	33	This returns a L<Class::MOP::Class> object for the mixin class.
	34
	35	=back
	36
	37	=cut