1 package Reaction::UI::ViewPort::DisplayField::RelatedObject;
4 use Scalar::Util 'blessed';
5 use aliased 'Reaction::UI::ViewPort::DisplayField';
7 class RelatedObject is DisplayField, which {
9 #has '+layout' => (default => 'displayfield/value_string');
11 has value_string => (isa => 'Str', is => 'ro', lazy_build => 1);
13 has value_map_method => (
14 isa => 'Str', is => 'ro', required => 1, default => sub { 'display_name' },
17 implements _build_value_string => as {
19 my $meth = $self->value_map_method;
20 my $value = $self->value;
21 return blessed($value) ? $value->$meth : $value;