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

   1 package Reaction::UI::ViewPort::Field::Collection;
   2
   3 use Reaction::Class;
   4 use Scalar::Util 'blessed';
   5 use aliased 'Reaction::UI::ViewPort::Field::Array';
   6
   7 use namespace::clean -except => [ qw(meta) ];
   8 extends Array;
   9
  10
  11
  12 has value => (
  13   is => 'rw', lazy_build => 1,
  14   isa => 'Reaction::InterfaceModel::Collection'
  15 );
  16 sub _build_value_names {
  17   my $self = shift;
  18   my $meth = $self->value_map_method;
  19   my @names = map { blessed($_) ? $_->$meth : $_ } $self->value->members;
  20   return [ sort @names ];
  21 };
  22
  23 __PACKAGE__->meta->make_immutable;
  24
  25
  26 1;