From ed3e3a9675ceb2745488ab80b27796a77eca4761 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 11:40:59 -0600
Subject: make inheritance work

---
 lib/MooseX/Bread/Board/Meta/Role/Class.pm | 17 +++++++++++++++++
 lib/MooseX/Bread/Board/Role/Object.pm     |  4 ++--
 2 files changed, 19 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/MooseX/Bread/Board/Meta/Role/Class.pm b/lib/MooseX/Bread/Board/Meta/Role/Class.pm
index 652d0b7..9cabd88 100644
--- a/lib/MooseX/Bread/Board/Meta/Role/Class.pm
+++ b/lib/MooseX/Bread/Board/Meta/Role/Class.pm
@@ -2,6 +2,7 @@ package MooseX::Bread::Board::Meta::Role::Class;
 use Moose::Role;
 
 use Bread::Board::Service;
+use List::MoreUtils qw(any);
 
 has services => (
     traits  => ['Array'],
@@ -14,6 +15,22 @@ has services => (
     },
 );
 
+sub has_any_services {
+    my $self = shift;
+    return any { $_->has_services }
+           grep { Moose::Util::does_role($_, __PACKAGE__) }
+           map { $_->meta }
+           $self->linearized_isa;
+}
+
+sub get_all_services {
+    my $self = shift;
+    return map { $_->services }
+           grep { Moose::Util::does_role($_, __PACKAGE__) }
+           map { $_->meta }
+           $self->linearized_isa;
+}
+
 no Moose::Role;
 
 1;
diff --git a/lib/MooseX/Bread/Board/Role/Object.pm b/lib/MooseX/Bread/Board/Role/Object.pm
index e25fdf5..8846792 100644
--- a/lib/MooseX/Bread/Board/Role/Object.pm
+++ b/lib/MooseX/Bread/Board/Role/Object.pm
@@ -14,9 +14,9 @@ after BUILD => sub {
     my $self = shift;
 
     my $meta = Class::MOP::class_of($self);
-    return unless $meta->has_services;
+    return unless $meta->has_any_services;
 
-    for my $service ($meta->services) {
+    for my $service ($meta->get_all_services) {
         if ($service->isa('MooseX::Bread::Board::BlockInjection')) {
             my $block = $service->block;
             $self->add_service(
-- 
cgit v1.2.3-54-g00ecf