From 5df872d8876e1ee60a21482c46bae7667474f853 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 14:54:40 -0600
Subject: disallow multiple inheritance

---
 lib/MooseX/Bread/Board/Meta/Role/Class.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib')

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"
-- 
cgit v1.2.3-54-g00ecf