Commit | Line | Data |
ddccc6a2 |
1 | package Reaction::UI::ViewPort::Field::RelatedObject; |
7adfd53f |
2 | |
3 | use Reaction::Class; |
4 | use Scalar::Util 'blessed'; |
7adfd53f |
5 | |
ddccc6a2 |
6 | class RelatedObject is 'Reaction::UI::ViewPort::Field', which { |
7adfd53f |
7 | |
8 | has value_map_method => ( |
9 | isa => 'Str', is => 'ro', required => 1, default => sub { 'display_name' }, |
10 | ); |
11 | |
89939ff9 |
12 | implements _build_value_string => as { |
7adfd53f |
13 | my $self = shift; |
14 | my $meth = $self->value_map_method; |
15 | my $value = $self->value; |
89939ff9 |
16 | return blessed($value) ? $value->$meth : $value; |
7adfd53f |
17 | }; |
18 | |
19 | }; |
20 | |
21 | 1; |