diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 14:54:40 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 14:54:40 -0600 |
commit | 5df872d8876e1ee60a21482c46bae7667474f853 (patch) | |
tree | a7fc65cec80c645697bd26e7114668ccc8fcfd3d /lib/MooseX/Bread | |
parent | 47bdf9ed57780fccbca69ba0470fb57741494b3c (diff) | |
download | bread-board-declare-5df872d8876e1ee60a21482c46bae7667474f853.tar.gz bread-board-declare-5df872d8876e1ee60a21482c46bae7667474f853.zip |
disallow multiple inheritance
Diffstat (limited to 'lib/MooseX/Bread')
-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" |