diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-14 17:17:51 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-14 17:17:51 -0500 |
commit | 20150d7cb25af87d7e9a5d94ca0f8a472b13b3ae (patch) | |
tree | 6166cc04e8f1cb985aa5a2e9be0c6ab16adbdb43 /lib/Bread/Board/Declare/Meta | |
parent | 554a76295ba78d5412f3a46ac945dccf16e7179e (diff) | |
download | bread-board-declare-20150d7cb25af87d7e9a5d94ca0f8a472b13b3ae.tar.gz bread-board-declare-20150d7cb25af87d7e9a5d94ca0f8a472b13b3ae.zip |
fix inheritance (xenoterracide)
Diffstat (limited to 'lib/Bread/Board/Declare/Meta')
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Class.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Bread/Board/Declare/Meta/Role/Class.pm b/lib/Bread/Board/Declare/Meta/Role/Class.pm index 795e99d..0191a2c 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Class.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Class.pm @@ -3,6 +3,7 @@ use Moose::Role; # ABSTRACT: class metarole for Bread::Board::Declare use Bread::Board::Service; +use Class::Load qw(load_class); use List::MoreUtils qw(any); =head1 DESCRIPTION @@ -33,6 +34,8 @@ before superclasses => sub { die "Multiple inheritance is not supported for Bread::Board::Declare classes" if @_ > 1; + load_class($_[0]); + return if $_[0]->isa('Bread::Board::Container'); die "Cannot inherit from " . join(', ', @_) |