From cbb4a91e2fcbafa6d64889717763c6a8a9033412 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 2 Apr 2011 23:25:22 -0500
Subject: set the 'class' attribute on block services if possible

---
 lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm
index d4d59b9..f6584ae 100644
--- a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm
+++ b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm
@@ -131,6 +131,9 @@ after attach_to_class => sub {
 
     my $service;
     if ($self->has_block) {
+        if ($tc && $tc->isa('Moose::Meta::TypeConstraint::Class')) {
+            %params = (%params, class => $tc->class);
+        }
         $service = Bread::Board::Declare::BlockInjection->new(
             %params,
             block => $self->block,
-- 
cgit v1.2.3