quick fix for value issue

diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm
index f7a54bb..1948baa 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm
@@ -23,7 +23,9 @@ class ChooseOne is 'Reaction::UI::ViewPort::Field', which {
 
   implements _build_value_string => as {
     my $self = shift;
-    $self->obj_to_name($self->value->{value});
+    my $value = $self->value;
+    return $self->obj_to_name($value->{value}) if ref $value eq 'HASH';
+    $value;
   };
 
   implements is_current_value => as {