lib/Reaction/UI/ViewPort/Field/Array.pm

   1 package Reaction::UI::ViewPort::Field::Array;
   2
   3 use Reaction::Class;
   4 use Scalar::Util 'blessed';
   5
   6 extends 'Reaction::UI::ViewPort::Field';
   7
   8 use namespace::clean -except => [ qw(meta) ];
   9
  10 use MooseX::Types::Moose qw/Str ArrayRef/;;
  11
  12 has '+value' => (isa => ArrayRef);
  13
  14 has value_names => (isa => ArrayRef, is => 'ro', lazy_build => 1);
  15 has value_map_method => (
  16   isa => Str, is => 'ro', required => 1, default => sub { 'display_name' },
  17 );
  18
  19 sub _build_value_names {
  20   my $self = shift;
  21   my $meth = $self->value_map_method;
  22   my @names = map { blessed($_) ? $_->$meth : $_ } @{ $self->value };
  23   return [ sort @names ];
  24 }
  25
  26 sub _empty_value { [] }
  27
  28 __PACKAGE__->meta->make_immutable;
  29
  30
  31 1;