1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
package Reaction::UI::ViewPort::Collection;
use Reaction::Class;
use Scalar::Util qw/blessed/;
use aliased 'Reaction::InterfaceModel::Collection' => 'IM_Collection';
use aliased 'Reaction::UI::ViewPort::Object';
class Collection is 'Reaction::UI::ViewPort', which {
has members => (is => 'rw', isa => 'ArrayRef', lazy_build => 1);
has collection => (is => 'ro', isa => IM_Collection, required => 1);
has current_collection => (is => 'rw', isa => IM_Collection, lazy_build => 1);
has member_args => ( is => 'rw', isa => 'HashRef', lazy_build => 1);
has member_class => ( is => 'ro', isa => 'Str', lazy_build => 1);
implements BUILD => as {
my ($self, $args) = @_;
if( my $member_args = delete $args->{Member} ){
$self->member_args( $member_args );
}
};
implements _build_member_args => as{ {} };
implements _build_member_class => as{ Object };
after clear_current_collection => sub{
shift->clear_members; #clear the members the current collection changes, duh
};
implements _build_current_collection => as {
return $_[0]->collection;
};
#I'm not really sure why this is here all of a sudden.
implements model => as { shift->current_collection };
implements _build_members => as {
my ($self) = @_;
my (@members, $i);
my $args = $self->member_args;
my $builders = {};
my $ctx = $self->ctx;
my $loc = join('-', $self->location, 'member');
my $class = $self->member_class;
#replace $i with a real unique identifier so that we don't run a risk of
# events being passed down to the wrong viewport. for now i disabled event
# passing until i fix this (groditi)
for my $obj ( $self->current_collection->members ) {
my $type = blessed $obj;
my $builder_cache = $builders->{$type} ||= {};
my $member = $class->new(
ctx => $ctx,
model => $obj,
location => join('-', $loc, $i++),
builder_cache => $builder_cache,
%$args
);
push(@members, $member);
}
return \@members;
};
};
1;
__END__;
=head1 NAME
Reaction::UI::ViewPort::Collection
=head1 DESCRIPTION
Creates, from an InterfaceModel::Collection, a list of viewports representing each
member of the collection.
=head1 ATTRIBUTES
=head2 collection
=head2 current_collection
=head2 member_args
=head2 member_class
=head1
=head1 INTERNAL METHODS
These methods, although stable, are subject to change without notice. These are meant
to be used only by developers. End users should refrain from using these methods to
avoid potential breakages.
=head2 BUILD
=head2 get_builder_for
=head2 model
=head1 AUTHORS
See L<Reaction::Class> for authors.
=head1 LICENSE
See L<Reaction::Class> for the license.
=cut
|
