From b15968766a546f3840161c081418f6d47e81f31f Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Thu, 2 Jun 2011 14:07:26 +0200
Subject: Coerce service values if requested

---
 lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 8 ++++++--
 lib/Bread/Board/Declare/Role/Service.pm        | 9 +++++++--
 2 files changed, 13 insertions(+), 4 deletions(-)

(limited to 'lib')

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') {
diff --git a/lib/Bread/Board/Declare/Role/Service.pm b/lib/Bread/Board/Declare/Role/Service.pm
index 96bdaf7..1ed4265 100644
--- a/lib/Bread/Board/Declare/Role/Service.pm
+++ b/lib/Bread/Board/Declare/Role/Service.pm
@@ -36,8 +36,13 @@ around get => sub {
     }
 
     my $val = $self->$orig(@_);
-    $attr->verify_against_type_constraint($val, instance => $container)
-        if $attr->has_type_constraint;
+
+    if ($attr->has_type_constraint) {
+        $val = $attr->type_constraint->coerce($val)
+            if $attr->should_coerce;
+
+        $attr->verify_against_type_constraint($val, instance => $container);
+    }
 
     return $val;
 };
-- 
cgit v1.2.3