rename MooseX::Bread::Board -> Bread::Board::Declare

1 files changed, 32 insertions, 0 deletions

diff --git a/lib/Bread/Board/Declare/Meta/Role/Class.pm b/lib/Bread/Board/Declare/Meta/Role/Class.pm
new file mode 100644
index 0000000..2869f7e
--- /dev/null
+++ b/lib/Bread/Board/Declare/Meta/Role/Class.pm
@@ -0,0 +1,32 @@
+package Bread::Board::Declare::Meta::Role::Class;
+use Moose::Role;
+
+use Bread::Board::Service;
+use List::MoreUtils qw(any);
+
+sub get_all_services {
+    my $self = shift;
+    return map { $_->associated_service }
+           grep { $_->has_associated_service }
+           grep { Moose::Util::does_role($_, 'Bread::Board::Declare::Meta::Role::Attribute') }
+           $self->get_all_attributes;
+}
+
+before superclasses => sub {
+    my $self = shift;
+
+    return unless @_;
+
+    die "Multiple inheritance is not supported for Bread::Board::Declare classes"
+        if @_ > 1;
+
+    return if $_[0]->isa('Bread::Board::Container');
+
+    die "Cannot inherit from " . join(', ', @_)
+      . " because Bread::Board::Declare classes must inherit"
+      . " from Bread::Board::Container";
+};
+
+no Moose::Role;
+
+1;