fix for certain fields failing silently when they are required and left blank

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / Collection.pm

package Reaction::UI::ViewPort::Field::Collection;

use Reaction::Class;
use Scalar::Util 'blessed';
use aliased 'Reaction::UI::ViewPort::Field::Array';

use namespace::clean -except => [ qw(meta) ];
extends Array;



has value => (
  is => 'rw', lazy_build => 1,
  isa => 'Reaction::InterfaceModel::Collection'
);
sub _build_value_names {
  my $self = shift;
  my $meth = $self->value_map_method;
  my @names = map { blessed($_) ? $_->$meth : $_ } $self->value->members;
  return [ sort @names ];
};

__PACKAGE__->meta->make_immutable;


1;