diff options
author | Florian Ragwitz <rafl@debian.org> | 2011-06-02 14:07:26 +0200 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-06-02 10:26:15 -0500 |
commit | b15968766a546f3840161c081418f6d47e81f31f (patch) | |
tree | 4cb34bb67ff4f00894504dcd235af184bf697da9 /lib/Bread | |
parent | 68007b8e7ce535a789d2d8845ef504e07712e14b (diff) | |
download | bread-board-declare-b15968766a546f3840161c081418f6d47e81f31f.tar.gz bread-board-declare-b15968766a546f3840161c081418f6d47e81f31f.zip |
Coerce service values if requested
Diffstat (limited to 'lib/Bread')
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 8 | ||||
-rw-r--r-- | lib/Bread/Board/Declare/Role/Service.pm | 9 |
2 files changed, 13 insertions, 4 deletions
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; }; |