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