annotate Lib/IMPL/Web/View/TTFactory.pm @ 189:08015e2803f1

IMPL::Vew::Web - fixed memory leaks, more tests
author cin
date Wed, 04 Apr 2012 02:49:45 +0400
parents 6c0fee769b0c
children 78a18a2b6266
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
1 package IMPL::Web::View::TTFactory;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
2 use strict;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
3
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
4 use Template::Context();
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
5
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
6 use IMPL::lang qw(:hash :declare :constants);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
7 use IMPL::Exception();
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
8
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
9
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
10 use parent qw(IMPL::Object::Factory);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
11
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
12 BEGIN {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
13 public property template => PROP_ALL;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
14 public property context => PROP_ALL;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
15 public property opts => PROP_ALL;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
16 public property nodeProperties => PROP_ALL;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
17 public property instances => PROP_GET | PROP_OWNERSET;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
18 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
19
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
20 __PACKAGE__->PassThroughArgs;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
21
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
22 sub CTOR {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
23 my ($this,$factory,$template,$context,$options,$nodeProps) = @_;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
24
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
25 die IMPL::ArgumentException("A template is required") unless $template;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
26
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
27 $options ||= {};
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
28
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
29 $this->template($template);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
30 $this->context($context || new Template::Context($options));
186
6c0fee769b0c IMPL::Web::View::TTControl tests, fixes
cin
parents: 181
diff changeset
31 $this->opts($options || {});
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
32 $this->nodeProperties($nodeProps || {});
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
33 $this->instances(0);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
34
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
35 # init factory context
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
36 $this->context->process($this->template);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
37 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
38
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
39 our %CTOR = (
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
40 'IMPL::Object::Factory' => sub {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
41 $_[0]
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
42 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
43 );
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
44
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
45 sub MergeParameters {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
46 my ($this,$name,$refProps) = @_;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
47
186
6c0fee769b0c IMPL::Web::View::TTControl tests, fixes
cin
parents: 181
diff changeset
48 my $opts = { %{ $this->opts } };
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
49 $opts->{STASH} = $opts->{STASH}->clone() if $opts->{STASH};
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
50
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
51 my $ctx = new Template::Context($opts);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
52
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
53 return ($name, $this->template, $ctx, hashMerge($this->nodeProperties,$refProps));
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
54 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
55
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
56 sub CreateObject {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
57 my $this = shift;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
58
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
59 my $count = $this->instances;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
60
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
61 unless($count) {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
62 # нужно выполнить именно блок INIT шаблона при создании первого экземпляра
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
63 if (my $init = $this->template->blocks->{INIT}) {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
64 $this->context->process($init);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
65 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
66 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
67
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
68 $count++;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
69 $this->instances($count);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
70
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
71 return $this->SUPER::CreateObject(@_);
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
72 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
73
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
74 sub save {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
75 die new IMPL::NotImplementedException("This class doesn't support serialization");
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
76 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
77
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
78 sub restore {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
79 die new IMPL::NotImplementedException("This class doesn't support serialization");
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
80 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
81
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
82 1;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
83
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
84 __END__
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
85
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
86 =pod
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
87
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
88 =head1 NAME
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
89
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
90 C<IMPL::Web::View::TTFactory> - фабрика элементов управления
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
91
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
92 =head1 SYNOPSIS
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
93
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
94 =begin code
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
95
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
96 my $factory = new IMPL::Web::View::TTFactory(
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
97 typeof IMPL::Web::View::TTControl,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
98 $doc,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
99 $context,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
100 {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
101 TRIM => 1
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
102 },
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
103 {
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
104 myprop => 'my value'
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
105 },
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
106 );
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
107
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
108 my $input1 = $factory->new('login', { class => "required" } );
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
109
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
110 my $propval = $input->nodeProperty('myprop'); # 'my value'
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
111
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
112 =end code
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
113
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
114 =begin text
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
115
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
116 [%
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
117 this.appendChild(
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
118 my.org.input.new('login', class = this.errors('login') ? "invalid" : "" )
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
119 );
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
120 %]
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
121
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
122 =end text
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
123
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
124 =head1 DESCRIPTION
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
125
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
126 C< Inherits L<IMPL::Object::Factory> >
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
127
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
128 =head1 MEMBERS
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
129
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
130 =over
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
131
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
132 =item C<[get,set]template>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
133
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
134 Документ C<Template::Document> который описывает элемент управления. См. C<IMPL::Web::View::TTControl>.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
135
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
136 =item C<[get,set]context>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
137
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
138 Контекст фабрики элементов управления, в этом контексте выполняет шаблон элемента управления при загрузке.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
139 Далее в этом контексте будет выполнен блок инициализации при создании первого элемента управления.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
140
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
141 =item C<[get,set]opts>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
142
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
143 Параметры контекста элемента управления (ссылка на хеш). Каждый элемент управления при создании получает свой контекст,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
144 который создает с данными параметрами и хранилищем переменных, дочерним к контексту фабрики.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
145
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
146 =item C<[get,set]nodeProperties>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
147
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
148 Ссылка на хеш со значениями свойств по умолчанию для создаваемого элемента управления.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
149
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
150 =item C<[get]instances>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
151
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
152 Количество созданных элементов управления данной фабрикой
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
153
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
154 =item C<[override]MergeParameters($name,$nodeProps)>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
155
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
156 Превращает значения переданные методу C<new> фабрики в параметры для создания элемента управления.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
157
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
158 =over
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
159
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
160 =item C<$name>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
161
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
162 Имя создаваемого узла (C<nodeName>).
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
163
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
164 =item C<$nodeProps>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
165
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
166 Ссылка на шех со значениями свойств узла. Данные значения будут совмещены со значениями из свойства C<nodeProperties>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
167
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
168 =back
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
169
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
170 =item C<[override]CreateObject(@params)>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
171
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
172 Создает экземпляр элемента управления стандартным образом. Учитывает количество экземпляров и если это первый,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
173 то производит дополнительную инициализацию контекста выполнив блок шаблона C<INIT>.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
174
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
175 =item C<new($name,$nodeProps)>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
176
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
177 Создает элемент управления с указанным именем и набором свойств.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
178
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
179 =back
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
180
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
181 =cut