From b274df4c9da24b117a22e287acd03b3fa87233a8 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 16:04:51 -0600
Subject: rename MooseX::Bread::Board -> Bread::Board::Declare

---
 lib/Bread/Board/Declare/Meta/Role/Class.pm | 32 ++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 lib/Bread/Board/Declare/Meta/Role/Class.pm

(limited to 'lib/Bread/Board/Declare/Meta/Role/Class.pm')

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