1 package Reaction::UI::ViewPort::Field::Array;
4 use Scalar::Util 'blessed';
5 use aliased 'Reaction::UI::ViewPort::Field';
7 use namespace::clean -except => [ qw(meta) ];
11 has '+value' => (isa => 'ArrayRef');
13 has value_names => (isa => 'ArrayRef', is => 'ro', lazy_build => 1);
14 has value_map_method => (
15 isa => 'Str', is => 'ro', required => 1, default => sub { 'display_name' },
17 sub _build_value_names {
19 my $meth = $self->value_map_method;
20 my @names = map { blessed($_) ? $_->$meth : $_ } @{ $self->value };
21 return [ sort @names ];
23 sub _empty_value { [] };
24 __PACKAGE__->meta->make_immutable;