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 | |
| parent | 47bdf9ed57780fccbca69ba0470fb57741494b3c (diff) | |
| download | bread-board-declare-5df872d8876e1ee60a21482c46bae7667474f853.tar.gz bread-board-declare-5df872d8876e1ee60a21482c46bae7667474f853.zip | |
disallow multiple inheritance
Diffstat (limited to 'lib')
| -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" |