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

package Class::MOP::Mixin;

use strict;
use warnings;

our $AUTHORITY = 'cpan:STEVAN';

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