From 5c235d524709938d131823e4c17fac45027dd463 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 3 Oct 2011 19:01:44 -0500
Subject: ...but the class still has to exist

---
 lib/Bread/Board/Declare/Role/Object.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Bread/Board/Declare')

diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm
index 1409d34..fe0c651 100644
--- a/lib/Bread/Board/Declare/Role/Object.pm
+++ b/lib/Bread/Board/Declare/Role/Object.pm
@@ -16,7 +16,7 @@ after BUILD => sub {
 
     my %seen = (
         map { $_->class => $_->name }
-            grep { $_->does('Bread::Board::Service::WithClass') }
+            grep { $_->does('Bread::Board::Service::WithClass') && $_->has_class }
                  $meta->get_all_services
     );
     for my $service ($meta->get_all_services) {
-- 
cgit v1.2.3