From 8ae4f9f692f39a7a6dd6fed422b878d568210269 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 16 Apr 2011 16:41:58 -0500 Subject: make sure definition order doesn't matter for inferring services --- lib/Bread/Board/Declare/Role/Object.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm index c3f11a9..9d4a938 100644 --- a/lib/Bread/Board/Declare/Role/Object.pm +++ b/lib/Bread/Board/Declare/Role/Object.pm @@ -14,6 +14,11 @@ after BUILD => sub { my $meta = Class::MOP::class_of($self); + my %seen = ( + map { $_->class => $_->name } + grep { $_->isa('Bread::Board::Declare::ConstructorInjection') && Class::MOP::class_of($_->class) } + $meta->get_all_services + ); for my $service ($meta->get_all_services) { if ($service->isa('Bread::Board::Declare::BlockInjection')) { my $block = $service->block; @@ -30,7 +35,7 @@ after BUILD => sub { my $inferred = Bread::Board::Service::Inferred->new( current_container => $self, service => $service->clone, - )->infer_service($service->class); + )->infer_service($service->class, \%seen); $self->add_service($inferred); $self->add_type_mapping_for($service->class, $inferred); -- cgit v1.2.3