|
77
|
1 package IMPL::Web::TT::Document;
|
|
49
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
75
|
5 use base qw(IMPL::DOM::Document IMPL::Object::Disposable);
|
|
49
|
6 use Template::Context;
|
|
|
7 use Template::Provider;
|
|
|
8 use IMPL::Class::Property;
|
|
|
9 use File::Spec;
|
|
77
|
10 use Scalar::Util qw(blessed);
|
|
107
|
11 use IMPL::Web::TT::Collection;
|
|
|
12 use IMPL::Web::TT::Control;
|
|
49
|
13
|
|
|
14 BEGIN {
|
|
77
|
15 private property _provider => prop_all;
|
|
|
16 private property _context => prop_all;
|
|
|
17 public property template => prop_get | owner_set;
|
|
|
18 public property presenter => prop_all, { validate => \&_validatePresenter };
|
|
107
|
19 public property controls => { get => \&_getControls };
|
|
49
|
20 }
|
|
|
21
|
|
|
22 our %CTOR = (
|
|
75
|
23 'IMPL::DOM::Document' => sub { nodeName => 'document' }
|
|
49
|
24 );
|
|
|
25
|
|
107
|
26 sub CTOR {
|
|
|
27 my ($this) = @_;
|
|
|
28
|
|
|
29 $this->appendChild(
|
|
|
30 $this->Create(
|
|
|
31 controls => 'IMPL::Web::TT::Collection'
|
|
|
32 )
|
|
|
33 )
|
|
|
34 }
|
|
|
35
|
|
77
|
36 sub provider {
|
|
49
|
37 my ($this,%args) = @_;
|
|
|
38
|
|
77
|
39 if (my $provider = $this->_provider) {
|
|
49
|
40 return $provider;
|
|
|
41 } else {
|
|
77
|
42 return $this->_provider(new Template::Provider(
|
|
49
|
43 \%args
|
|
|
44 ));
|
|
|
45 }
|
|
|
46 }
|
|
|
47
|
|
77
|
48 sub context {
|
|
49
|
49 my ($this) = @_;
|
|
|
50
|
|
77
|
51 if (my $ctx = $this->_context) {
|
|
49
|
52 return $ctx;
|
|
|
53 } else {
|
|
77
|
54 return $this->_context (
|
|
49
|
55 new Template::Context(
|
|
|
56 VARIABLES => {
|
|
77
|
57 document => $this,
|
|
|
58 this => $this,
|
|
|
59 render => sub {
|
|
|
60 $this->_process(@_);
|
|
107
|
61 },
|
|
|
62 controls => $this->controls
|
|
49
|
63 },
|
|
|
64 TRIM => 1,
|
|
|
65 RECURSION => 1,
|
|
77
|
66 LOAD_TEMPLATES => [$this->provider]
|
|
49
|
67 )
|
|
|
68 )
|
|
|
69 }
|
|
|
70 }
|
|
|
71
|
|
107
|
72 sub createControl {
|
|
|
73 my ($this,$name,$args) = @_;
|
|
|
74
|
|
|
75 my $node = $this->Create($name,'IMPL::Web::TT::Control',$args);
|
|
|
76 $this->controls->appendChild($node);
|
|
|
77 }
|
|
|
78
|
|
|
79 sub _getControls {
|
|
|
80 my ($this) = @_;
|
|
|
81
|
|
|
82 my ($node) = $this->selectNodes('controls');
|
|
|
83 return $node;
|
|
|
84 }
|
|
|
85
|
|
77
|
86 sub _validatePresenter {
|
|
|
87 my ($this,$value) = @_;
|
|
|
88
|
|
|
89 die new IMPL::InvalidArgumentException("A view object is required") unless blessed($value) and $value->isa('Template::View');
|
|
|
90 }
|
|
|
91
|
|
|
92 sub LoadFile {
|
|
49
|
93 my ($this,$filePath,$encoding) = @_;
|
|
|
94
|
|
|
95 die new IMPL::InvalidArgumentException("A filePath parameter is required") unless $filePath;
|
|
|
96
|
|
|
97 $encoding ||= 'utf8';
|
|
|
98
|
|
77
|
99 $this->_context(undef);
|
|
|
100 $this->_provider(undef);
|
|
49
|
101
|
|
|
102 my ($vol,$dir,$fileName) = File::Spec->splitpath($filePath);
|
|
|
103
|
|
|
104 my $inc = File::Spec->catpath($vol,$dir,'');
|
|
|
105
|
|
77
|
106 $this->provider(
|
|
49
|
107 ENCODING => $encoding,
|
|
|
108 INTERPOLATE => 1,
|
|
|
109 PRE_CHOMP => 1,
|
|
|
110 POST_CHOMP => 1,
|
|
|
111 INCLUDE_PATH => $inc
|
|
|
112 );
|
|
|
113
|
|
77
|
114 $this->template($this->context->template($fileName));
|
|
49
|
115 }
|
|
|
116
|
|
97
|
117 sub AddVar {
|
|
|
118 my ($this,$name,$value) = @_;
|
|
|
119
|
|
|
120 $this->context->stash->set($name,$value);
|
|
|
121 }
|
|
|
122
|
|
77
|
123 sub title {
|
|
|
124 $_[0]->template->title;
|
|
49
|
125 }
|
|
|
126
|
|
|
127 sub Render {
|
|
|
128 my ($this) = @_;
|
|
|
129
|
|
77
|
130 return $this->template->process($this->context);
|
|
|
131 }
|
|
|
132
|
|
|
133 # Формирует представление для произвольных объектов
|
|
|
134 sub _process {
|
|
|
135 my ($this,@items) = @_;
|
|
|
136
|
|
|
137 my @result;
|
|
|
138
|
|
|
139 foreach my $item (@items) {
|
|
|
140 if (blessed($item) and $item->isa('IMPL::Web::TT::Control')) {
|
|
|
141 push @result, $item->Render();
|
|
|
142 } elsif(blessed($item)) {
|
|
|
143 if ($this->presenter) {
|
|
|
144 push @result, $this->presenter->print($item);
|
|
|
145 } else {
|
|
|
146 push @result, $this->toString;
|
|
|
147 }
|
|
|
148 } else {
|
|
|
149 push @result, $item;
|
|
|
150 }
|
|
|
151 }
|
|
|
152
|
|
107
|
153 return join '',@result;
|
|
49
|
154 }
|
|
|
155
|
|
|
156 sub Dispose {
|
|
|
157 my ($this) = @_;
|
|
|
158
|
|
77
|
159 $this->template(undef);
|
|
|
160 $this->_context(undef);
|
|
|
161 $this->_provider(undef);
|
|
49
|
162
|
|
|
163 $this->SUPER::Dispose();
|
|
|
164 }
|
|
|
165
|
|
|
166 1;
|
|
|
167 __END__
|
|
|
168 =pod
|
|
|
169
|
|
77
|
170 =head1 NAME
|
|
|
171
|
|
|
172 C<IMPL::Web::TT::Document> - Документ, позволяющий строить представление по шаблону
|
|
|
173
|
|
49
|
174 =head1 SYNOPSIS
|
|
|
175
|
|
75
|
176 =begin code
|
|
|
177
|
|
49
|
178 // create new document
|
|
77
|
179 my $doc = new IMPL::Web::TT::Document;
|
|
49
|
180
|
|
|
181 // load template
|
|
|
182 $doc->loadFile('Templates/index.tt');
|
|
|
183
|
|
|
184 // render file
|
|
|
185 print $doc->Render();
|
|
|
186
|
|
75
|
187 =end code
|
|
|
188
|
|
49
|
189 =head1 DESCRIPTION
|
|
|
190
|
|
77
|
191 C<use base qw(IMPL::DOM::Document)>
|
|
|
192
|
|
49
|
193 Документ, основанный на шаблоне Template::Toolkit. Позволяет загрузить шаблон,
|
|
|
194 и сформировать окончательный документ. Является наследником C<IMPL::DOM::Node>,
|
|
|
195 т.о. может быть использован для реализации DOM модели.
|
|
|
196
|
|
|
197 Внутри шаблона переменная C<document> ссылается на объект документа. По этой
|
|
|
198 причине образуется циклическая ссылка между объектами шаблона и документом, что
|
|
|
199 требует вызова метода C<Dispose> для освобождения документа.
|
|
|
200
|
|
|
201 =head1 METHODS
|
|
|
202
|
|
77
|
203 =over
|
|
49
|
204
|
|
77
|
205 =item C<CTOR()>
|
|
49
|
206
|
|
77
|
207 Создает новый экземпляр документа, свойство C<nodeName> устанавливается в 'C<document>'
|
|
49
|
208
|
|
77
|
209 =item C<$doc->LoadFile($fileName,$encoding)>
|
|
49
|
210
|
|
|
211 Загружает шаблон из файла C<$fileName>, используя кодировку C<$encoding>. Если
|
|
|
212 кодировка не указана, использует utf-8.
|
|
|
213
|
|
|
214 =item C<$doc->Render()>
|
|
|
215
|
|
|
216 Возвращает данные построенные на основе загруженного шаблона.
|
|
|
217
|
|
|
218 =item C<$doc->Dispose()>
|
|
|
219
|
|
|
220 Освобождает ресурсы и помечает объект как освобожденный.
|
|
|
221
|
|
|
222 =back
|
|
|
223
|
|
76
|
224 =head1 DOM
|
|
|
225
|
|
77
|
226 =begin code html
|
|
76
|
227
|
|
77
|
228 [% table = document.Create('env','table') %]
|
|
76
|
229
|
|
|
230 [% FOEACH item in document.result %]
|
|
|
231 [% table.rows.Add( item.get('name','value') ) %]
|
|
|
232 [% END %]
|
|
|
233
|
|
77
|
234 [% form = document.Create('login','form') %]
|
|
76
|
235
|
|
|
236
|
|
77
|
237 [% form.template = 'LOGIN_FORM'%]
|
|
|
238
|
|
|
239 [% FOREACH item IN document.childNodes %]
|
|
|
240 [%render(item)%]
|
|
76
|
241 [% END %]
|
|
|
242
|
|
77
|
243 [% BLOCK LOGIN_FORM %]
|
|
|
244 <form method="POST" action='/login.pl'>
|
|
|
245 user: [% render(this.item('name')) %] password: [% render(this.item('password')) %] <input type="submit"/>
|
|
|
246 </form>
|
|
|
247 [% END %]
|
|
76
|
248
|
|
77
|
249 =end code html
|
|
76
|
250
|
|
|
251
|
|
49
|
252 =cut
|
