diff options
Diffstat (limited to 'lib/MooseX/Bread/Board/Meta/Role/Class.pm')
| -rw-r--r-- | lib/MooseX/Bread/Board/Meta/Role/Class.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/MooseX/Bread/Board/Meta/Role/Class.pm b/lib/MooseX/Bread/Board/Meta/Role/Class.pm index 47c34bd..e48c9f6 100644 --- a/lib/MooseX/Bread/Board/Meta/Role/Class.pm +++ b/lib/MooseX/Bread/Board/Meta/Role/Class.pm @@ -35,7 +35,11 @@ before superclasses => sub { my $self = shift; return unless @_; - return if any { $_->isa('Bread::Board::Container') } @_; + + die "Multiple inheritance is not supported for MooseX::Bread::Board classes" + if @_ > 1; + + return if $_[0]->isa('Bread::Board::Container'); die "Cannot inherit from " . join(', ', @_) . " because MooseX::Bread::Board classes must inherit" |