From d8c288ef5dbefa77fac30433cb1e7a1b24b8a936 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 Apr 2011 12:09:34 -0500
Subject: need to clone the service so deps don't get messed up

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

(limited to 'lib')

diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm
index 15b0bb0..51d1b6d 100644
--- a/lib/Bread/Board/Declare/Role/Object.pm
+++ b/lib/Bread/Board/Declare/Role/Object.pm
@@ -27,6 +27,7 @@ after BUILD => sub {
         }
         elsif ($service->isa('Bread::Board::Declare::ConstructorInjection')
             && (my $meta = Class::MOP::class_of($service->class))) {
+            $service = $service->clone;
             my $inferred = Bread::Board::Service::Inferred->new(
                 current_container => $self,
                 # XXX: this is kinda ugly, maybe ::Inferred should be able to
-- 
cgit v1.2.3