Commit | Line | Data |
ddccc6a2 |
1 | package Reaction::UI::ViewPort::Field::Collection; |
2 | |
3 | use Reaction::Class; |
4 | use Scalar::Util 'blessed'; |
ddccc6a2 |
5 | |
81393881 |
6 | use namespace::clean -except => [ qw(meta) ]; |
7b5e71ad |
7 | extends 'Reaction::UI::ViewPort::Field::Array'; |
e1ca874a |
8 | |
81393881 |
9 | has value => ( |
10 | is => 'rw', lazy_build => 1, |
11 | isa => 'Reaction::InterfaceModel::Collection' |
12 | ); |
7b5e71ad |
13 | |
81393881 |
14 | sub _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 |
24 | 1; |