[gitmo/Moose-Policy.git] / lib / Moose / Policy / SingleInheritence.pm


package Moose::Policy::SingleInheritence;

use constant metaclass => 'Moose::Policy::SingleInheritence::MetaClass';

package Moose::Policy::SingleInheritence::MetaClass;
use Moose;

extends 'Moose::Meta::Class';

before 'superclasses' => sub {
    my ($self, @superclasses) = @_;
    confess 'Moose::Policy::SingleInheritence in effect for ' . 
             $self->name . ', only single inheritence is allowed'
         if scalar @superclasses > 1;
};

1;

__END__

=pod

=cut
Commit	Line	Data
461dc6d3	1
	2	package Moose::Policy::SingleInheritence;
	3
	4	use constant metaclass => 'Moose::Policy::SingleInheritence::MetaClass';
	5
	6	package Moose::Policy::SingleInheritence::MetaClass;
	7	use Moose;
	8
	9	extends 'Moose::Meta::Class';
	10
	11	before 'superclasses' => sub {
	12	my ($self, @superclasses) = @_;
	13	confess 'Moose::Policy::SingleInheritence in effect for ' .
	14	$self->name . ', only single inheritence is allowed'
	15	if scalar @superclasses > 1;
	16	};
	17
	18	1;
	19
	20	__END__
	21
	22	=pod
	23
	24	=cut