annotate Lib/IMPL/Web/View/TTFactory.pm @ 345:72799d1211c5

sync
author cin
date Fri, 27 Sep 2013 16:28:27 +0400
parents 9bdccdf1f50b
children
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
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
6 use Carp qw(carp);
312
75a78cbf7dcf View refactoring: INIT blocks are deprecated
cin
parents: 309
diff changeset
7 use IMPL::lang qw(:hash is);
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
8 use IMPL::Exception();
192
a9faf883cdce IMPL::Web::View refactoring
cin
parents: 191
diff changeset
9 use Scalar::Util qw(weaken);
336
cin
parents: 312
diff changeset
10 use IMPL::Resources::Format qw(FormatMessage);
cin
parents: 312
diff changeset
11 use IMPL::Resources::Strings();
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
12
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
13
267
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
14 use IMPL::Const qw(:prop);
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
15 use IMPL::declare {
298
78f767765706 TT view refactoring
cin
parents: 296
diff changeset
16 require => {
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
17 Loader => 'IMPL::Code::Loader',
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
18 Resources => 'IMPL::Resources',
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
19 OpException => '-IMPL::InvalidOperationException',
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
20 ArgException => '-IMPL::InvalidArgumentException'
298
78f767765706 TT view refactoring
cin
parents: 296
diff changeset
21 },
267
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
22 base => [
298
78f767765706 TT view refactoring
cin
parents: 296
diff changeset
23 'IMPL::Object::Factory' => sub {
309
cin
parents: 305
diff changeset
24 shift;
298
78f767765706 TT view refactoring
cin
parents: 296
diff changeset
25 }
267
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
26 ],
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
27 props => [
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
28 template => PROP_RW,
312
75a78cbf7dcf View refactoring: INIT blocks are deprecated
cin
parents: 309
diff changeset
29 activation => PROP_RW,
267
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
30 context => PROP_RW,
300
cin
parents: 298
diff changeset
31 baseLocation => PROP_RW,
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
32 base => PROP_RW,
305
b5d5793f348e TTView refactoring, still experiencing memory leaks
sergey
parents: 301
diff changeset
33 registry => PROP_RO,
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
34 blocks => PROP_RO,
336
cin
parents: 312
diff changeset
35 path => PROP_RO,
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
36 _instance => PROP_RW,
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
37 _labels => PROP_RW
267
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
38 ]
bbc0da7ef90e *IMPL::Web::View refactoring
cin
parents: 232
diff changeset
39 };
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
40
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
41 sub CTOR {
309
cin
parents: 305
diff changeset
42 my ($this,$class,$template,$context,$path,$registry) = @_;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
43
309
cin
parents: 305
diff changeset
44 die ArgException->new("A control class must be specified")
cin
parents: 305
diff changeset
45 unless $class;
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
46 die ArgException->new("A template is required") unless $template;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
47
309
cin
parents: 305
diff changeset
48 Loader->safe->Require($class)
cin
parents: 305
diff changeset
49 unless ref $class ;
298
78f767765706 TT view refactoring
cin
parents: 296
diff changeset
50
287
2d253e6e4a88 *TTView refactoring
cin
parents: 280
diff changeset
51 $context ||= new Template::Context();
305
b5d5793f348e TTView refactoring, still experiencing memory leaks
sergey
parents: 301
diff changeset
52 my $baseLocation = join( '/', splice( @{[split(/\//,$path)]}, 0, -1 ) );
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
53
312
75a78cbf7dcf View refactoring: INIT blocks are deprecated
cin
parents: 309
diff changeset
54 $this->activation($template->activation || 'new');
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
55 $this->template($template);
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
56 $this->context($context);
300
cin
parents: 298
diff changeset
57 $this->baseLocation($baseLocation);
336
cin
parents: 312
diff changeset
58 $this->path($path);
305
b5d5793f348e TTView refactoring, still experiencing memory leaks
sergey
parents: 301
diff changeset
59 $this->registry($registry);
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
60
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
61 if (my $baseTplName = $template->extends) {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
62 $baseTplName =~ s{^\./}{$baseLocation/};
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
63
305
b5d5793f348e TTView refactoring, still experiencing memory leaks
sergey
parents: 301
diff changeset
64 my $base = $registry->Require($baseTplName)
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
65 or die OpException->new("The specified base template isn't found");
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
66
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
67 $this->base($base);
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
68
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
69 $this->blocks(hashMerge($base->blocks, $template->blocks));
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
70
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
71 # блок BASE должен меняться в процессе выполнения, в зависимости от
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
72 # шаблона, который рендерится, по мере перехода в BASE
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
73
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
74 my @baseStack;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
75
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
76 $this->blocks->{BASE} = sub {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
77 my $ctx = shift;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
78
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
79 die OpException->new("This tamplate doesn't have a base template")
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
80 unless $base;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
81
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
82 push @baseStack, $base;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
83 my $block = $base->template->block;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
84
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
85 $base = $base->base;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
86
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
87 my $result = eval {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
88 $ctx->process($block);
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
89 };
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
90 my $e = $@;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
91
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
92 $base = pop @baseStack;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
93
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
94 die $e if $e;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
95 return $result;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
96 };
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
97 } else {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
98 $this->blocks( $template->blocks );
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
99 }
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
100
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
101 if(my $blocks = $this->blocks) {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
102 while (my ($name,$block) = each %$blocks) {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
103 $context->define_block($name,$block);
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
104 }
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
105 }
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
106
336
cin
parents: 312
diff changeset
107 $context->stash->update({
cin
parents: 312
diff changeset
108 require => sub {
cin
parents: 312
diff changeset
109 my ($module) = @_;
cin
parents: 312
diff changeset
110
cin
parents: 312
diff changeset
111 $module =~ s/^\.\//$baseLocation\//;
cin
parents: 312
diff changeset
112 return $registry->Require($module);
cin
parents: 312
diff changeset
113 }
cin
parents: 312
diff changeset
114 });
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
115 $this->LoadLabelsToContext($context);
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
116 }
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
117
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
118 sub LoadLabelsToContext {
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
119 my ($this,$context) = @_;
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
120
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
121 my %vars;
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
122
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
123 %vars = %{$this->base->_labels || {}}
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
124 if $this->base;
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
125 $this->_labels(\%vars);
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
126
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
127 if(my $fname = $this->registry->loader->ResolveFileName($this->path)) {
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
128 my $flabels = "$fname.labels";
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
129
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
130 if (-f $flabels) {
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
131
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
132 my %labels;
343
9bdccdf1f50b Added a templates context
cin
parents: 339
diff changeset
133 $labels{default} = IMPL::Resources::Strings::ParseStringsMap($flabels);
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
134
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
135 while(my($label,$text) = each %{$labels{default}}) {
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
136 $vars{$label} = sub {
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
137 my ($params) = @_;
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
138 my $locale = Resources->currentLocale;
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
139
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
140 unless ($labels{$locale}) {
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
141 $labels{$locale} = -f "$fname.$locale" ?
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
142 IMPL::Resources::Strings::ParseStringsMap("$fname.$locale") :
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
143 {};
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
144 }
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
145
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
146 return FormatMessage(($labels{$locale}{$label} || $text),$params);
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
147 }
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
148 }
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
149
337
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
150 }
f4e14f32cf54 fixed bugs with string and local $_
cin
parents: 336
diff changeset
151 }
338
c78dfbe658bd improved string maps loading for TT documents
cin
parents: 337
diff changeset
152 $context->stash->update(\%vars);
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
153 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
154
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
155 sub MergeParameters {
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
156 my $this = shift;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
157 my $refProps = shift || {};
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
158
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
159 unless (ref($refProps) eq 'HASH') {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
160 carp "Passing control name through the first parameter is deprecated";
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
161 my $name = $refProps;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
162 $refProps = shift;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
163 $refProps->{name} ||= $name;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
164 }
291
5d14baa35790 *TTView: fixed template selectors mechanism
cin
parents: 290
diff changeset
165
298
78f767765706 TT view refactoring
cin
parents: 296
diff changeset
166 $refProps->{factory} = $this;
343
9bdccdf1f50b Added a templates context
cin
parents: 339
diff changeset
167 my $ctx = $this->context->clone();
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
168
300
cin
parents: 298
diff changeset
169 return ($this->template, $ctx, $refProps);
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
170 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
171
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
172 sub CreateObject {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
173 my $this = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
174
312
75a78cbf7dcf View refactoring: INIT blocks are deprecated
cin
parents: 309
diff changeset
175 $this->activation eq 'singleton' ?
75a78cbf7dcf View refactoring: INIT blocks are deprecated
cin
parents: 309
diff changeset
176 $this->_instance || $this->_instance($this->next::method(@_)) :
75a78cbf7dcf View refactoring: INIT blocks are deprecated
cin
parents: 309
diff changeset
177 $this->next::method(@_);
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
178 }
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
179
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
180 sub Render {
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
181 my ($this, $args) = @_;
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
182
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
183 return $this->new()->Render($args);
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
184 }
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
185
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
186 sub save {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
187 die new IMPL::NotImplementedException("This class doesn't support serialization");
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
188 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
189
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
190 sub restore {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
191 die new IMPL::NotImplementedException("This class doesn't support serialization");
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
192 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
193
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
194 1;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
195
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
196 __END__
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
197
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
198 =pod
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
199
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
200 =head1 NAME
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
201
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
202 C<IMPL::Web::View::TTFactory> - фабрика элементов управления
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
203
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
204 =head1 SYNOPSIS
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
205
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
206 =begin code
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
207
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
208 my $factory = new IMPL::Web::View::TTFactory(
280
c6d0f889ef87 +IMPL::declare now supports meta attributes
cin
parents: 267
diff changeset
209 'IMPL::Web::View::TTControl',
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
210 $doc,
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
211 $context,
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
212 {
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
213 TRIM => 1
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
214 },
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
215 {
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
216 myprop => 'my value'
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
217 },
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
218 );
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
219
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
220 my $input1 = $factory->new('login', { class => "required" } );
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
221
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
222 my $propval = $input->nodeProperty('myprop'); # 'my value'
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
223
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
224 =end code
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
225
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
226 =begin text
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
227
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
228 [%
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
229 this.appendChild(
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
230 my.org.input.new('login', class = this.errors('login') ? "invalid" : "" )
4d0e1962161c Replaced tabs with spaces
cin
parents: 192
diff changeset
231 );
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
232 %]
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
233
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
234 =end text
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
235
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
236 =head1 DESCRIPTION
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
237
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
238 C< Inherits L<IMPL::Object::Factory> >
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
239
343
9bdccdf1f50b Added a templates context
cin
parents: 339
diff changeset
240 Соединяет в себе шаблон и заранее подготовленный контекст, который будет базой
9bdccdf1f50b Added a templates context
cin
parents: 339
diff changeset
241 для создаваемых элементов управления.
9bdccdf1f50b Added a templates context
cin
parents: 339
diff changeset
242
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
243 =head1 MEMBERS
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
244
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
245 =over
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
246
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
247 =item C<[get,set]template>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
248
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
249 Документ C<Template::Document> который описывает элемент управления. См. C<IMPL::Web::View::TTControl>.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
250
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
251 =item C<[get,set]context>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
252
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
253 Контекст фабрики элементов управления, в этом контексте выполняет шаблон элемента управления при загрузке.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
254 Далее в этом контексте будет выполнен блок инициализации при создании первого элемента управления.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
255
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
256 =item C<[get,set]opts>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
257
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
258 Параметры контекста элемента управления (ссылка на хеш). Каждый элемент управления при создании получает свой контекст,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
259 который создает с данными параметрами и хранилищем переменных, дочерним к контексту фабрики.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
260
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
261 =item C<[get,set]nodeProperties>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
262
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
263 Ссылка на хеш со значениями свойств по умолчанию для создаваемого элемента управления.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
264
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
265 =item C<[get]instances>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
266
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
267 Количество созданных элементов управления данной фабрикой
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
268
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
269 =item C<[override]MergeParameters($name,$nodeProps)>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
270
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
271 Превращает значения переданные методу C<new> фабрики в параметры для создания элемента управления.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
272
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
273 =over
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
274
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
275 =item C<$name>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
276
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
277 Имя создаваемого узла (C<nodeName>).
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
278
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
279 =item C<$nodeProps>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
280
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
281 Ссылка на шех со значениями свойств узла. Данные значения будут совмещены со значениями из свойства C<nodeProperties>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
282
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
283 =back
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
284
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
285 =item C<[override]CreateObject(@params)>
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
286
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
287 Создает экземпляр элемента управления стандартным образом. Учитывает количество экземпляров и если это первый,
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
288 то производит дополнительную инициализацию контекста выполнив блок шаблона C<INIT>.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
289
191
78a18a2b6266 IMPL::Web::View improvements (unstable)
cin
parents: 186
diff changeset
290 =item C<[inherited]new($name,$nodeProps)>
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
291
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
292 Создает элемент управления с указанным именем и набором свойств.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
293
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
294 =back
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
295
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
296 =cut