do not include .git directory
[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / Collection.pm
CommitLineData
ddccc6a2 1package Reaction::UI::ViewPort::Field::Collection;
2
3use Reaction::Class;
4use Scalar::Util 'blessed';
ddccc6a2 5
81393881 6use namespace::clean -except => [ qw(meta) ];
7b5e71ad 7extends 'Reaction::UI::ViewPort::Field::Array';
e1ca874a 8
81393881 9has value => (
10 is => 'rw', lazy_build => 1,
11 isa => 'Reaction::InterfaceModel::Collection'
12);
7b5e71ad 13
81393881 14sub _build_value_names {
15 my $self = shift;
16 my $meth = $self->value_map_method;
17 my @names = map { blessed($_) ? $_->$meth : $_ } $self->value->members;
18 return [ sort @names ];
7b5e71ad 19}
ddccc6a2 20
81393881 21__PACKAGE__->meta->make_immutable;
22
23
ddccc6a2 241;