2 package Moose::Policy::SingleInheritence;
4 use constant metaclass => 'Moose::Policy::SingleInheritence::MetaClass';
6 package Moose::Policy::SingleInheritence::MetaClass;
9 extends 'Moose::Meta::Class';
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;