diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-02 23:25:22 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-02 23:25:22 -0500 |
commit | cbb4a91e2fcbafa6d64889717763c6a8a9033412 (patch) | |
tree | f0b5a1354bd14280f125deb6255dce0a184b5384 /lib/Bread/Board/Declare/Meta | |
parent | 84d0f191f1e1030bcc1470bdd2cd5a43a2b997dc (diff) | |
download | bread-board-declare-cbb4a91e2fcbafa6d64889717763c6a8a9033412.tar.gz bread-board-declare-cbb4a91e2fcbafa6d64889717763c6a8a9033412.zip |
set the 'class' attribute on block services if possible
Diffstat (limited to 'lib/Bread/Board/Declare/Meta')
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 3 |
1 files changed, 3 insertions, 0 deletions
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, |