From 7254fb6a608b1f54d52572a859356236d0a0ba2e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 12:47:26 -0600
Subject: ensure we always inherit from Bread::Board::Container

---
 lib/MooseX/Bread/Board/Meta/Role/Class.pm | 11 +++++++++++
 t/34-extends.t                            | 22 ++++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 t/34-extends.t

diff --git a/lib/MooseX/Bread/Board/Meta/Role/Class.pm b/lib/MooseX/Bread/Board/Meta/Role/Class.pm
index 9cabd88..47c34bd 100644
--- a/lib/MooseX/Bread/Board/Meta/Role/Class.pm
+++ b/lib/MooseX/Bread/Board/Meta/Role/Class.pm
@@ -31,6 +31,17 @@ sub get_all_services {
            $self->linearized_isa;
 }
 
+before superclasses => sub {
+    my $self = shift;
+
+    return unless @_;
+    return if any { $_->isa('Bread::Board::Container') } @_;
+
+    die "Cannot inherit from " . join(', ', @_)
+      . " because MooseX::Bread::Board classes must inherit"
+      . " from Bread::Board::Container";
+};
+
 no Moose::Role;
 
 1;
diff --git a/t/34-extends.t b/t/34-extends.t
new file mode 100644
index 0000000..bb66271
--- /dev/null
+++ b/t/34-extends.t
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Fatal;
+
+{
+    package Bar;
+    use Moose;
+}
+
+{
+    package Foo;
+    use Moose;
+    use MooseX::Bread::Board;
+
+    ::like(::exception { extends 'Bar' },
+           qr/^Cannot inherit from Bar because MooseX::Bread::Board classes must inherit from Bread::Board::Container/,
+           "error when inheriting from a non-container");
+}
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf