diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-26 03:34:31 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-26 03:34:31 +0000 |
commit | 9757d0cf0d9e20cede6045920eafa24bdb03dd58 (patch) | |
tree | afbfb3aefe6060c438372c3673e7f25950b3a3d9 /lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm | |
parent | 1734a92a996a20dd6d292fc4aea58e876c24249b (diff) | |
download | reaction-9757d0cf0d9e20cede6045920eafa24bdb03dd58.tar.gz reaction-9757d0cf0d9e20cede6045920eafa24bdb03dd58.zip |
fixed _build_value_string for ChooseOne fields
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm')
-rw-r--r-- | lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm index 80f3fd2..4289282 100644 --- a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm +++ b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm @@ -1,6 +1,7 @@ package Reaction::UI::ViewPort::Field::Mutable::ChooseOne; use Reaction::Class; +use Scalar::Util (); class ChooseOne is 'Reaction::UI::ViewPort::Field', which { @@ -31,7 +32,7 @@ class ChooseOne is 'Reaction::UI::ViewPort::Field', which { implements _build_value_string => as { my $self = shift; my $value = $self->value; - return $self->obj_to_name($value->{value}) if ref $value eq 'HASH'; + return $self->obj_to_name($value->{value}) if Scalar::Util::blessed($value); $value; }; |