From f3b0919453a6a370af34ee6f2e23dc8e0e251b42 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 25 May 2011 13:57:45 -0500
Subject: make inference explicit

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

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

diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm
index 9d4a938..34fbf3e 100644
--- a/lib/Bread/Board/Declare/Role/Object.pm
+++ b/lib/Bread/Board/Declare/Role/Object.pm
@@ -31,6 +31,7 @@ after BUILD => sub {
             );
         }
         elsif ($service->isa('Bread::Board::Declare::ConstructorInjection')
+            && $service->associated_attribute->infer
             && (my $meta = Class::MOP::class_of($service->class))) {
             my $inferred = Bread::Board::Service::Inferred->new(
                 current_container => $self,
-- 
cgit v1.2.3-54-g00ecf