checking for definedness on required fields

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / RelatedObject.pm

diff --git a/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm b/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm
index 23d715d..fe6dbf6 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm
+++ b/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm
@@ -12,7 +12,7 @@ class RelatedObject is 'Reaction::UI::ViewPort::Field', which {
   implements _build_value_string => as {
     my $self = shift;
     my $meth = $self->value_map_method;
-    my $value = $self->value;
+    my $value = $self->has_value ? $self->value : $self->_empty_value;
     return blessed($value) ? $value->$meth : $value;
   };