|
181
|
1 package IMPL::Web::View::TTControl;
|
|
|
2 use strict;
|
|
|
3
|
|
234
|
4 use IMPL::Const qw(:prop);
|
|
|
5 use IMPL::declare {
|
|
|
6 require => {
|
|
|
7 TTContext => 'Template::Context',
|
|
|
8 Exception => 'IMPL::Exception',
|
|
238
|
9 ArgumentException => '-IMPL::InvalidArgumentException',
|
|
|
10 OperationException => '-IMPL::InvalidOperationException'
|
|
234
|
11 },
|
|
|
12 base => [
|
|
238
|
13 'IMPL::Object' => '@_'
|
|
234
|
14 ],
|
|
|
15 props => [
|
|
|
16 id => PROP_RO,
|
|
238
|
17 attributes => PROP_RW,
|
|
|
18 name => PROP_RO,
|
|
234
|
19 context => PROP_RO,
|
|
|
20 template => PROP_RO
|
|
|
21 ]
|
|
|
22 };
|
|
|
23
|
|
181
|
24
|
|
187
|
25 {
|
|
194
|
26 my $nextId = 1;
|
|
|
27 sub _GetNextId {
|
|
|
28 return $nextId++;
|
|
|
29 }
|
|
187
|
30 }
|
|
181
|
31
|
|
238
|
32 our $AutoloadRegex = qr/^[a-z]/;
|
|
|
33
|
|
181
|
34 sub CTOR {
|
|
194
|
35 my ($this,$name,$template,$context,$refProps) = @_;
|
|
|
36
|
|
|
37 $name ||= "control";
|
|
|
38
|
|
|
39 $this->template( $template ) or die new IMPL::ArgumentException("A template is required");
|
|
|
40 $this->context( $context ) or die new IMPL::ArgumentException("A context is required");
|
|
|
41
|
|
|
42 $this->id($name . "-" . _GetNextId()) unless $this->id;
|
|
|
43
|
|
238
|
44 $this->name($name);
|
|
|
45 $this->attributes({});
|
|
194
|
46
|
|
238
|
47 if (ref $refProps eq 'HASH') {
|
|
|
48 while (my($key,$value) = each %$refProps) {
|
|
|
49 $this->SetAttribute($key,$value);
|
|
|
50 }
|
|
|
51 }
|
|
181
|
52 }
|
|
|
53
|
|
191
|
54 sub InitInstance {
|
|
194
|
55 my ($this,$args) = @_;
|
|
|
56
|
|
|
57 $args ||= {};
|
|
|
58
|
|
|
59 if ( my $ctor = $this->template->blocks->{CTOR} ) {
|
|
212
|
60 $this->context->include($ctor, { %$args, this => $this, template => $this->template } );
|
|
194
|
61 }
|
|
191
|
62 }
|
|
|
63
|
|
238
|
64 sub GetAttribute {
|
|
|
65 my ($this,$name) = (shift,shift);
|
|
|
66
|
|
|
67 if (my $method = $this->can($name)) {
|
|
|
68 unshift @_,$this;
|
|
|
69 goto &$method;
|
|
|
70 } else {
|
|
|
71 return $this->attributes->{$name};
|
|
|
72 }
|
|
|
73 }
|
|
|
74
|
|
|
75 sub SetAttribute {
|
|
|
76 my $this = shift;
|
|
|
77 my $name = shift;
|
|
|
78
|
|
|
79 if (my $method = $this->can($name)) {
|
|
|
80 unshift @_, $this;
|
|
|
81 goto &$method;
|
|
|
82 } else {
|
|
|
83 return $this->attributes->{$name} = shift;
|
|
|
84 }
|
|
|
85 }
|
|
|
86
|
|
234
|
87 sub GetRenderBlock {
|
|
194
|
88 $_[0]->template->blocks->{RENDER} || $_[0]->template;
|
|
187
|
89 }
|
|
|
90
|
|
|
91 sub Render {
|
|
194
|
92 my ($this,$args) = @_;
|
|
|
93
|
|
|
94 $args = {} unless ref $args eq 'HASH';
|
|
|
95
|
|
234
|
96 if(my $body = $this->GetRenderBlock ) {
|
|
194
|
97 return $this->context->include( $body, { %$args, this => $this, template => $this->template, document => $this->document } );
|
|
|
98 } else {
|
|
|
99 return "";
|
|
|
100 }
|
|
185
|
101 }
|
|
|
102
|
|
|
103 sub AUTOLOAD {
|
|
194
|
104 our $AUTOLOAD;
|
|
|
105
|
|
|
106 my $method = ($AUTOLOAD =~ m/(\w+)$/)[0];
|
|
|
107
|
|
|
108 return if $method eq 'DESTROY';
|
|
|
109
|
|
238
|
110 if ($method =~ /$AutoloadRegex/) {
|
|
|
111 my $this = shift;
|
|
|
112
|
|
|
113 return @_ ? $this->SetAttribute($method,@_) : $this->GetAttribute($method);
|
|
|
114 } else {
|
|
|
115 die OperationException->new("The specified method '$method' doesn't exists");
|
|
|
116 }
|
|
181
|
117 }
|
|
|
118
|
|
|
119 1;
|
|
|
120
|
|
|
121 __END__
|
|
|
122
|
|
|
123 =pod
|
|
|
124
|
|
|
125 =head1 NAME
|
|
|
126
|
|
|
127 C<IMPL::Web::View::TTControl>
|
|
|
128
|
|
|
129 =head1 SYNPOSIS
|
|
|
130
|
|
|
131 =head1 DESCRIPTION
|
|
|
132
|
|
|
133 =head2 BLOCKS
|
|
|
134
|
|
|
135 =head3 INIT
|
|
|
136
|
|
213
|
137 Данный блок шаблона управления выполняется один раз при создании первого экземпляра элемента управления,
|
|
|
138 может использоваться для формирования заголовочной части документа, скрипта подключающего ajax модули
|
|
|
139 при необходимости и т.п.
|
|
181
|
140
|
|
|
141 =head3 CTOR
|
|
|
142
|
|
|
143 данный блок выполняется каждый раз при создании нового экземпляра элемента управления, при этом переменная C<this>
|
|
213
|
144 указывает на эземпляр элемента упарвления. Данный блок можно использовать для инициализации свойств элемента
|
|
|
145 управления.
|
|
181
|
146
|
|
|
147 =head3 RENDER
|
|
|
148
|
|
213
|
149 Данный блок выполняется при вызове метода C<Render()>, вывод данного блока и есть результат отображения элемента управления.
|
|
|
150 Если в шаблоне нет блока C<RENDER>, то сам шаблон считается таковым.
|
|
187
|
151
|
|
|
152 =head2 TEMPLATE VARS
|
|
|
153
|
|
|
154 Каждый шаблон имеет собственное пространство имен, унаследованное от пространства имен фабрики элементов (которая в свою очередь наследует контекст документа).
|
|
|
155 В шаблоне могут определяться новые переменные, которые разделяются между блоками. Также доступны стандартные переменные
|
|
|
156
|
|
|
157 =over
|
|
|
158
|
|
|
159 =item * C<this> ссылка на объект элемента управления
|
|
|
160
|
|
|
161 =item * C<component> ссылка на текущий шаблон, устанавливается автоматически в методе C<Template::Context::process>.
|
|
|
162
|
|
|
163 =item * C<template> ссылка на шаблон элемента управления, для совместимости с C<TT>
|
|
|
164
|
|
|
165 =back
|
|
|
166
|
|
|
167 =head1 MEMBERS
|
|
|
168
|
|
|
169 =over
|
|
|
170
|
|
|
171 =item * C<[get]context>
|
|
|
172
|
|
|
173 Контекст элемента управления, хранит пременные шаблона. Наследуется от контекста фабрики элементов управления, который
|
|
|
174 наследуется от контекста документа.
|
|
|
175
|
|
|
176 =item * C<[get,set]template>
|
|
|
177
|
|
|
178 C<Template::Document> Шаблон элемента управления.
|
|
|
179
|
|
|
180 =item * C<AUTOLOAD>
|
|
|
181
|
|
|
182 Для удобства работы с шаблоном, элементы управления предоставляю доступ к своим свойствам через метод C<AUTOLOAD>.
|
|
|
183
|
|
|
184 =back
|
|
181
|
185
|
|
|
186
|
|
|
187 C<lang ru>
|
|
|
188
|
|
|
189 =cut |
