1 package Reaction::UI::ViewPort::Field::RelatedObject;
4 use Scalar::Util 'blessed';
6 use namespace::clean -except => [ qw(meta) ];
7 extends 'Reaction::UI::ViewPort::Field';
11 has value_map_method => (
12 isa => 'Str', is => 'ro', required => 1, default => sub { 'display_name' },
15 around _value_string_from_value => sub {
18 my $meth = $self->value_map_method;
19 return $self->$orig(@_)->$meth;
22 __PACKAGE__->meta->make_immutable;