|
181
|
1 package IMPL::Web::View::TTControl;
|
|
|
2 use strict;
|
|
|
3
|
|
|
4 use IMPL::DOM::Property qw(_dom);
|
|
|
5 use IMPL::lang qw(:declare :constants);
|
|
|
6
|
|
|
7 use Template::Context();
|
|
191
|
8 use Scalar::Util qw(weaken);
|
|
181
|
9
|
|
|
10 use parent qw(
|
|
194
|
11 IMPL::DOM::Node
|
|
181
|
12 );
|
|
|
13
|
|
187
|
14 {
|
|
194
|
15 my $nextId = 1;
|
|
|
16 sub _GetNextId {
|
|
|
17 return $nextId++;
|
|
|
18 }
|
|
187
|
19 }
|
|
181
|
20
|
|
|
21
|
|
|
22 BEGIN {
|
|
194
|
23 public _dom property id => PROP_ALL;
|
|
|
24
|
|
|
25 public property context => PROP_GET | PROP_OWNERSET;
|
|
|
26 public property template => PROP_ALL;
|
|
181
|
27 }
|
|
|
28
|
|
|
29
|
|
|
30 sub CTOR {
|
|
194
|
31 my ($this,$name,$template,$context,$refProps) = @_;
|
|
|
32
|
|
|
33 $name ||= "control";
|
|
|
34
|
|
|
35 $this->template( $template ) or die new IMPL::ArgumentException("A template is required");
|
|
|
36 $this->context( $context ) or die new IMPL::ArgumentException("A context is required");
|
|
|
37
|
|
|
38 $this->id($name . "-" . _GetNextId()) unless $this->id;
|
|
|
39
|
|
|
40 weaken($this); # prevent cyclic references produces by the code below
|
|
|
41
|
|
|
42 $context->stash->set('append', sub { $this->appendChild(@_); undef; } );
|
|
|
43 $context->stash->set('select', sub { $this->selectNodes(@_); } );
|
|
|
44
|
|
181
|
45 }
|
|
|
46
|
|
|
47 our %CTOR = (
|
|
194
|
48 'IMPL::DOM::Node' => sub {
|
|
|
49 nodeName => $_[0],
|
|
|
50 %{ $_[3] || {} }
|
|
|
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
|
|
187
|
64 sub renderBlock {
|
|
194
|
65 $_[0]->template->blocks->{RENDER} || $_[0]->template;
|
|
187
|
66 }
|
|
|
67
|
|
|
68 sub Render {
|
|
194
|
69 my ($this,$args) = @_;
|
|
|
70
|
|
|
71 $args = {} unless ref $args eq 'HASH';
|
|
|
72
|
|
|
73 if(my $body = $this->renderBlock ) {
|
|
|
74 return $this->context->include( $body, { %$args, this => $this, template => $this->template, document => $this->document } );
|
|
|
75 } else {
|
|
|
76 return "";
|
|
|
77 }
|
|
185
|
78 }
|
|
|
79
|
|
|
80 sub AUTOLOAD {
|
|
194
|
81 our $AUTOLOAD;
|
|
|
82
|
|
|
83 my $method = ($AUTOLOAD =~ m/(\w+)$/)[0];
|
|
|
84
|
|
|
85 return if $method eq 'DESTROY';
|
|
|
86
|
|
|
87 my $this = shift;
|
|
212
|
88
|
|
194
|
89 $this->nodeProperty($method,@_);
|
|
181
|
90 }
|
|
|
91
|
|
|
92 1;
|
|
|
93
|
|
|
94 __END__
|
|
|
95
|
|
|
96 =pod
|
|
|
97
|
|
|
98 =head1 NAME
|
|
|
99
|
|
|
100 C<IMPL::Web::View::TTControl>
|
|
|
101
|
|
|
102 =head1 SYNPOSIS
|
|
|
103
|
|
|
104 =head1 DESCRIPTION
|
|
|
105
|
|
|
106 =head2 BLOCKS
|
|
|
107
|
|
|
108 =head3 INIT
|
|
|
109
|
|
213
|
110 Данный блок шаблона управления выполняется один раз при создании первого экземпляра элемента управления,
|
|
|
111 может использоваться для формирования заголовочной части документа, скрипта подключающего ajax модули
|
|
|
112 при необходимости и т.п.
|
|
181
|
113
|
|
|
114 =head3 CTOR
|
|
|
115
|
|
|
116 данный блок выполняется каждый раз при создании нового экземпляра элемента управления, при этом переменная C<this>
|
|
213
|
117 указывает на эземпляр элемента упарвления. Данный блок можно использовать для инициализации свойств элемента
|
|
|
118 управления.
|
|
181
|
119
|
|
|
120 =head3 RENDER
|
|
|
121
|
|
213
|
122 Данный блок выполняется при вызове метода C<Render()>, вывод данного блока и есть результат отображения элемента управления.
|
|
|
123 Если в шаблоне нет блока C<RENDER>, то сам шаблон считается таковым.
|
|
187
|
124
|
|
|
125 =head2 TEMPLATE VARS
|
|
|
126
|
|
|
127 Каждый шаблон имеет собственное пространство имен, унаследованное от пространства имен фабрики элементов (которая в свою очередь наследует контекст документа).
|
|
|
128 В шаблоне могут определяться новые переменные, которые разделяются между блоками. Также доступны стандартные переменные
|
|
|
129
|
|
|
130 =over
|
|
|
131
|
|
|
132 =item * C<this> ссылка на объект элемента управления
|
|
|
133
|
|
|
134 =item * C<component> ссылка на текущий шаблон, устанавливается автоматически в методе C<Template::Context::process>.
|
|
|
135
|
|
|
136 =item * C<template> ссылка на шаблон элемента управления, для совместимости с C<TT>
|
|
|
137
|
|
|
138 =back
|
|
|
139
|
|
|
140 =head1 MEMBERS
|
|
|
141
|
|
|
142 =over
|
|
|
143
|
|
|
144 =item * C<[get]context>
|
|
|
145
|
|
|
146 Контекст элемента управления, хранит пременные шаблона. Наследуется от контекста фабрики элементов управления, который
|
|
|
147 наследуется от контекста документа.
|
|
|
148
|
|
|
149 =item * C<[get,set]template>
|
|
|
150
|
|
|
151 C<Template::Document> Шаблон элемента управления.
|
|
|
152
|
|
|
153 =item * C<AUTOLOAD>
|
|
|
154
|
|
|
155 Для удобства работы с шаблоном, элементы управления предоставляю доступ к своим свойствам через метод C<AUTOLOAD>.
|
|
|
156
|
|
|
157 =back
|
|
181
|
158
|
|
|
159
|
|
|
160 C<lang ru>
|
|
|
161
|
|
|
162 =cut |
