1 package Reaction::UI::ViewPort::Collection;
4 use Scalar::Util qw/blessed/;
5 use aliased 'Reaction::InterfaceModel::Collection' => 'IM_Collection';
6 use aliased 'Reaction::UI::ViewPort::Object';
8 use namespace::clean -except => [ qw(meta) ];
9 extends 'Reaction::UI::ViewPort';
11 has members => (is => 'rw', isa => 'ArrayRef', lazy_build => 1);
13 has collection => (is => 'ro', isa => IM_Collection, required => 1);
14 has current_collection => (is => 'rw', isa => IM_Collection, lazy_build => 1);
16 has member_args => ( is => 'rw', isa => 'HashRef', lazy_build => 1);
17 has member_class => ( is => 'ro', isa => 'Str', lazy_build => 1);
20 my ($self, $args) = @_;
21 if( my $member_args = delete $args->{Member} ){
22 $self->member_args( $member_args );
26 sub _build_member_args { {} }
28 sub _build_member_class { Object };
30 after clear_current_collection => sub{
31 shift->clear_members; #clear the members the current collection changes, duh
34 sub _build_current_collection {
35 return $_[0]->collection;
38 #I'm not really sure why this is here all of a sudden.
39 sub model { shift->current_collection }
44 my $args = $self->member_args;
46 my $field_orders = {};
48 my $loc = join('-', $self->location, 'member');
49 my $class = $self->member_class;
51 #replace $i with a real unique identifier so that we don't run a risk of
52 # events being passed down to the wrong viewport. for now i disabled event
53 # passing until i fix this (groditi)
54 for my $obj ( $self->current_collection->members ) {
55 my $type = blessed $obj;
56 my $builder_cache = $builders->{$type} ||= {};
58 if( exists $args->{computed_field_order} ){
59 @order = (computed_field_order => $args->{computed_field_order});
60 } elsif( exists $field_orders->{$type} ) {
61 @order = (computed_field_order => $field_orders->{$type});
64 my $member = $class->new(
67 location => join('-', $loc, $i++),
68 builder_cache => $builder_cache,
72 #cache to prevent the sort function from having to be run potentially
74 $field_orders->{$type} ||= $member->computed_field_order unless @order;
75 push(@members, $member);
80 __PACKAGE__->meta->make_immutable;
89 Reaction::UI::ViewPort::Collection
93 Creates, from an InterfaceModel::Collection, a list of viewports representing each
94 member of the collection.
100 =head2 current_collection
106 =head1 INTERNAL METHODS
108 These methods, although stable, are subject to change without notice. These are meant
109 to be used only by developers. End users should refrain from using these methods to
110 avoid potential breakages.
114 =head2 get_builder_for
120 See L<Reaction::Class> for authors.
124 See L<Reaction::Class> for the license.