lib/Moose/Policy/SingleInheritence.pm

   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