From 34d6c5c10d764206a3203456546c55990e5a2abb Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 Apr 2011 12:09:15 -0500
Subject: make sure inferred services get the ::Declare service trait

---
 lib/Bread/Board/Declare/Role/Object.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib')

diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm
index 8c8b68e..15b0bb0 100644
--- a/lib/Bread/Board/Declare/Role/Object.pm
+++ b/lib/Bread/Board/Declare/Role/Object.pm
@@ -40,6 +40,12 @@ after BUILD => sub {
                 },
             )->infer_service($service->class);
 
+            # XXX: the above comment would also make this unnecessary
+            Bread::Board::Declare::ConstructorInjection->meta->rebless_instance(
+                $inferred,
+                associated_attribute => $service->associated_attribute,
+            );
+
             $self->add_service($inferred);
             $self->add_type_mapping_for($service->class, $inferred)
                 if $service->should_create_typemap;
-- 
cgit v1.2.3-54-g00ecf