From b15968766a546f3840161c081418f6d47e81f31f Mon Sep 17 00:00:00 2001 From: Florian Ragwitz Date: Thu, 2 Jun 2011 14:07:26 +0200 Subject: Coerce service values if requested --- lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lib/Bread/Board/Declare/Meta') diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm index 000abef..895cbfa 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm @@ -210,8 +210,12 @@ around get_value => sub { my $val = $instance->get_service($self->name)->get; - $self->verify_against_type_constraint($val, instance => $instance) - if $self->has_type_constraint; + if ($self->has_type_constraint) { + $val = $self->type_constraint->coerce($val) + if $self->should_coerce; + + $self->verify_against_type_constraint($val, instance => $instance); + } if ($self->should_auto_deref) { if (ref($val) eq 'ARRAY') { -- cgit v1.2.3-54-g00ecf