Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/TTContext.pm @ 370:cbf4febf0930

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ObjectMeta, Tests, migrating to the new metadata model.
author sergey
date Tue, 10 Dec 2013 03:02:01 +0400
parents 833e663796c4
children d5c8b955bf8d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
1 package IMPL::Web::View::TTContext;
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
2 use strict;
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
3 use Template::Base;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
4 use Carp qw(carp);
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
5 use File::Spec();
86b470004d47 added lables loading
cin
parents: 348
diff changeset
6 use IMPL::Resources::Format qw(FormatMessage);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
7 use IMPL::Resources::Strings();
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
8
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
9 use IMPL::Exception();
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
10 use IMPL::lang qw(is typeof hashApply hashMerge);
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
11 use IMPL::declare {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
12 require => {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
13 Document => '-Template::Document',
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
14 TypeKeyedCollection => 'IMPL::TypeKeyedCollection',
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
15 ArgException => '-IMPL::InvalidArgumentException',
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
16 Resources => 'IMPL::Resources',
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
17 Loader => 'IMPL::Code::Loader'
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
18 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
19 base => [
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
20 'Template::Context' => '@_'
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
21 ]
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
22 };
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
23
347
cin
parents: 346
diff changeset
24 BEGIN {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
25 no strict 'refs';
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
26 # modules is a global (for the whole document) templates cache
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
27 # tt_cache is a local (for the current context only) templtes cache
347
cin
parents: 346
diff changeset
28 foreach my $prop (qw(
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
29 root
347
cin
parents: 346
diff changeset
30 base
cin
parents: 346
diff changeset
31 tt_ext
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
32 tt_cache
347
cin
parents: 346
diff changeset
33 parent
cin
parents: 346
diff changeset
34 prefix
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
35 cache
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
36 includes
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
37 modules
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
38 aliases
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
39
356
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
40 id
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
41 metadata
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
42 model
347
cin
parents: 346
diff changeset
43 )) {
cin
parents: 346
diff changeset
44 my $t = $prop;
cin
parents: 346
diff changeset
45
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
46 *{__PACKAGE__ . '::' . $prop} = sub {
347
cin
parents: 346
diff changeset
47 my $this = shift;
cin
parents: 346
diff changeset
48 return @_ ? $this->stash->set($t, @_) : $this->stash->get($t);
cin
parents: 346
diff changeset
49 }
cin
parents: 346
diff changeset
50 }
cin
parents: 346
diff changeset
51 }
cin
parents: 346
diff changeset
52
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
53 sub clone {
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
54 my $this = shift;
347
cin
parents: 346
diff changeset
55 my $params = shift;
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
56
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
57 $this->localise();
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
58
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
59 my $args = { %{$this} };
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
60
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
61 $this->delocalise();
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
62
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
63 my $class = ref($this);
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
64
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
65 delete $args->{CONFIG};
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
66
347
cin
parents: 346
diff changeset
67 my $clone = $class->new($args);
cin
parents: 346
diff changeset
68
cin
parents: 346
diff changeset
69 $clone->stash->update($params) if $params;
cin
parents: 346
diff changeset
70
cin
parents: 346
diff changeset
71 return $clone;
345
cin
parents: 343
diff changeset
72 }
cin
parents: 343
diff changeset
73
356
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
74 sub get_next_id {
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
75 my ($this) = @_;
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
76
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
77 my $id = $this->stash->get('document.nextId') || 0;
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
78 $this->stash->set('document.nextId', $id + 1);
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
79 return "w-$id";
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
80 }
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
81
345
cin
parents: 343
diff changeset
82 sub find_template {
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
83 my ($this,$name, $nothrow) = @_;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
84
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
85 my $cache = $this->tt_cache;
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
86
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
87 $this->tt_cache($cache = {}) unless $cache;
345
cin
parents: 343
diff changeset
88
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
89 if(my $tpl = $cache->{$name}) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
90 return $tpl;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
91 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
92
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
93 my @inc = ($this->base, @{$this->includes || []});
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
94
345
cin
parents: 343
diff changeset
95 my $ext = $this->tt_ext || "";
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
96
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
97 my $file;
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
98
345
cin
parents: 343
diff changeset
99 foreach my $dir (@inc) {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
100 $file = $dir ? "$dir/$name" : $name;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
101
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
102 my $base = join('/',splice([split(/\/+/,$file)],0,-1));
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
103
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
104 $file = $ext ? "$file.$ext" : $file;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
105
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
106 if (exists($this->modules->{$file})) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
107 my $info = $this->modules->{$file};
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
108 return $cache->{$name} = $info
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
109 if $info;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
110 } else {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
111 if( my $tt = eval { $this->template($file) } ) {
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
112 my $class;
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
113 if ($class = $tt->class) {
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
114 $class = $this->aliases->{$class} || $class;
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
115 Loader->safe->Require($class);
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
116 }
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
117 my $info = {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
118 base => $base,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
119 labels => $this->load_labels($file),
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
120 template => $tt,
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
121 initialized => 0,
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
122 class => $class
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
123 };
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
124 $this->modules->{$file} = $info;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
125 return $cache->{$name} = $info;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
126 } else {
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
127 my $err = $@;
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
128
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
129 for(my $t = $err; is($t,'Template::Exception'); $t = $t->info ) {
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
130 die $err unless $t->type eq Template::Constants::ERROR_FILE;
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
131 }
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
132 $this->modules->{$file} = undef;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
133 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
134 }
345
cin
parents: 343
diff changeset
135 }
cin
parents: 343
diff changeset
136
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
137 $this->throw(Template::Constants::ERROR_FILE, "$name: not found")
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
138 unless $nothrow;
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
139 return;
345
cin
parents: 343
diff changeset
140 }
cin
parents: 343
diff changeset
141
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
142 sub display_for {
347
cin
parents: 346
diff changeset
143 my $this = shift;
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
144 my $path = shift;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
145 my ($template, $args);
347
cin
parents: 346
diff changeset
146
cin
parents: 346
diff changeset
147 if (ref $_[0] eq 'HASH') {
cin
parents: 346
diff changeset
148 $args = shift;
cin
parents: 346
diff changeset
149 } else {
cin
parents: 346
diff changeset
150 $template = shift;
cin
parents: 346
diff changeset
151 $args = shift;
cin
parents: 346
diff changeset
152 }
cin
parents: 346
diff changeset
153
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
154 my $prefix = $this->prefix;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
155
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
156 my $info;
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
157 my $meta = $this->resolve_model($path,$args);
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
158
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
159 $info->{prefix} = $prefix ? $prefix . '.' . $path : $path;
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
160 $info->{model} = $meta->model;
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
161 $info->{metadata} = $meta;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
162
355
8dfb9df07d02 added support for the custom resolvers for the TTView
sergey
parents: 354
diff changeset
163 $template ||= $info->{template};
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
164 $template = $template ? $this->find_template($template) : $this->find_template_for($info->{model});
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
165
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
166 return $this->render(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
167 $template,
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
168 hashApply(
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
169 $info,
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
170 $args
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
171 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
172 );
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
173 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
174
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
175 sub display_model {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
176 my $this = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
177 my $model = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
178 my ($template, $args);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
179
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
180 if (ref $_[0] eq 'HASH') {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
181 $args = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
182 } else {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
183 $template = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
184 $args = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
185 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
186
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
187 $args ||= {};
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
188
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
189 my $prefix = delete $args->{prefix} || $this->prefix;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
190
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
191 if (my $rel = delete $args->{rel}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
192 $prefix = $prefix ? "${prefix}.${rel}" : $rel;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
193 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
194
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
195 $template = $template ? $this->find_template($template) : $this->find_template_for($model);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
196
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
197 return $this->render(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
198 $template,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
199 hashApply(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
200 {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
201 prefix => $prefix,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
202 model => $model,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
203 },
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
204 $args
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
205 )
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
206 );
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
207 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
208
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
209 # обеспечивает необходимый уровень изоляции между контекстами
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
210 # $code - код, который нужно выполнить в новом контексте
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
211 # $env - хеш с переменными, которые будут переданы в новый контекст
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
212 # в процессе будет создан клон корневого контекста, со всеми его свойствами
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
213 # затем новый контекст будет локализован и в него будут добавлены новые переменные из $env
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
214 # созданный контекст будет передан параметром в $code
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
215 sub invoke_environment {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
216 my ($this,$code,$env) = @_;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
217
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
218 $env ||= {};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
219
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
220 my $ctx = ($this->root || $this)->clone();
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
221
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
222 my @includes = @{$this->includes || []};
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
223
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
224 if ($this->base) {
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
225 unshift @includes, $this->base;
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
226 }
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
227
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
228 my $out = eval {
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
229 $ctx->localise(
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
230 hashApply(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
231 {
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
232 includes => \@includes,
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
233 aliases => $this->aliases || {},
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
234 root => $this->root || $ctx,
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
235 modules => $this->modules || {},
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
236 cache => TypeKeyedCollection->new(),
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
237 display_for => sub {
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
238 $ctx->display_for(@_);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
239 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
240 render => sub {
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
241 $ctx->render(@_);
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
242 },
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
243 display_model => sub {
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
244 $ctx->display_model(@_);
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
245 },
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
246 tt_cache => {}
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
247 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
248 $env
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
249 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
250 );
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
251
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
252 &$code($ctx);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
253 };
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
254
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
255 my $e = $@;
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
256 $ctx->delocalise();
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
257
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
258 die $e if $e;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
259
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
260 return $out;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
261 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
262
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
263 # использует указанный шаблон для создания фрагмента документа
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
264 # шаблон может быть как именем, так и хешем, содержащим информацию
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
265 # о шаблоне.
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
266 # отдельно следует отметить, что данный метод создает новый контекст
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
267 # для выполнения шаблона в котором задает переменные base, parent, id
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
268 # а также создает переменные для строковых констант из labels
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
269 # хеш с переменными $args будет передан самому шаблону в момент выполнения
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
270 # если у шаблона указан класс элемента управления, то при выполнении шаблона
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
271 # будет создан экземпляр этого класса и процесс выполнения шаблона будет
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
272 # делегирован методу Render этого экземпляра.
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
273 sub render {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
274 my ($this,$template,$args) = @_;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
275
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
276 $args ||= {};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
277
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
278 my $info = ref $template ? $template : $this->find_template($template);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
279
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
280 if (ref($info) ne 'HASH') {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
281 carp "got an invalid template object: $info (" . ref($info) . ")";
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
282 $info = {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
283 template => $info,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
284 base => $this->base,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
285 initialized => 1
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
286 };
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
287 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
288
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
289 return $this->invoke_environment(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
290 sub {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
291 my $ctx = shift;
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
292
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
293 unless($info->{initialized}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
294 if(my $init = $info->{template}->blocks->{INIT}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
295 $info->{initialized} = 1;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
296 eval {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
297 $ctx->visit($info->{template}->blocks);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
298 $ctx->include($init);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
299 };
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
300 $ctx->leave();
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
301 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
302 }
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
303
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
304 if (my $class = $info->{class}) {
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
305 $class->new($ctx,$info->{template},$args)->Render({});
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
306 } else {
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
307 return $ctx->include($info->{template},$args);
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
308 }
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
309 },
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
310 hashMerge(
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
311 $info->{labels} || {},
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
312 {
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
313 base => $info->{base},
356
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
314 parent => $this,
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
315 id => $this->get_next_id
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
316 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
317 )
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
318 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
319 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
320
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
321 sub resolve_model {
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
322 my ($this,$prefix) = @_;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
323
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
324 die ArgException->new(prefix => "the prefix must be specified")
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
325 unless defined $prefix;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
326
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
327 my $meta = $this->metadata;
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
328 foreach my $part (grep length($_), split(/\.|\[(\d+)\]/, $prefix)) {
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
329 last unless $meta;
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
330 if ($part =~ /^\d+$/) {
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
331 $meta = $meta->GetItem($part);
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
332 } else {
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
333 $meta = $meta->GetProperty($part);
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
334 }
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
335 }
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
336
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
337 return $meta;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
338 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
339
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
340 sub find_template_for {
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
341 my ($this,$meta, $nothrow) = @_;
347
cin
parents: 346
diff changeset
342
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
343 return $this->find_template($meta->template)
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
344 if ($meta->template);
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
345
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
346 my $type = $meta->modelType;
347
cin
parents: 346
diff changeset
347
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
348 return $this->find_template('templates/plain') unless $type;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
349
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
350 if (my $template = $this->cache->Get($type)) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
351 return $template;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
352 } else {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
353
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
354 no strict 'refs';
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
355
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
356 my @isa = $type;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
357
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
358 while (@isa) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
359 my $sclass = shift @isa;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
360
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
361 (my $name = $sclass) =~ s/:+/_/g;
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
362 my ($shortName) = ($sclass =~ m/(\w+)$/);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
363
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
364 $template = $this->find_template("templates/$name",1) || $this->find_template("templates/$shortName",1);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
365
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
366 if ($template) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
367 $this->cache->Set($sclass,$template);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
368 return $template;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
369 }
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
371 #todo $meta->GetISA
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
372 push @isa, @{"${sclass}::ISA"};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
373 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
374
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
375 }
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
376 $this->throw(Template::Constants::ERROR_FILE, "can't find a template for the model $type")
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
377 unless $nothrow;
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
378
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
379 return;
347
cin
parents: 346
diff changeset
380 }
cin
parents: 346
diff changeset
381
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
382 sub get_real_file {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
383 my ($this,$fname) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
384
86b470004d47 added lables loading
cin
parents: 348
diff changeset
385 my @path = split(/\/+/,$fname);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
386
86b470004d47 added lables loading
cin
parents: 348
diff changeset
387 foreach my $provider (@{$this->load_templates || []}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
388 foreach my $dir (@{$provider->paths || []}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
389 my $realName = File::Spec->catfile($dir,@path);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
390 return $realName if -f $realName;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
391 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
392 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
393 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
394
86b470004d47 added lables loading
cin
parents: 348
diff changeset
395 sub load_labels {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
396 my ($this,$fname) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
397
86b470004d47 added lables loading
cin
parents: 348
diff changeset
398 $fname = $this->get_real_file($fname);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
399
86b470004d47 added lables loading
cin
parents: 348
diff changeset
400 my %vars;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
401
86b470004d47 added lables loading
cin
parents: 348
diff changeset
402 my $flabels = "$fname.labels";
86b470004d47 added lables loading
cin
parents: 348
diff changeset
403
86b470004d47 added lables loading
cin
parents: 348
diff changeset
404 if (-f $flabels) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
405
86b470004d47 added lables loading
cin
parents: 348
diff changeset
406 my %labels;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
407 $labels{default} = IMPL::Resources::Strings::ParseStringsMap($flabels);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
408
86b470004d47 added lables loading
cin
parents: 348
diff changeset
409 while(my($label,$text) = each %{$labels{default}}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
410 $vars{$label} = sub {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
411 my ($params) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
412 my $locale = Resources->currentLocale;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
413
86b470004d47 added lables loading
cin
parents: 348
diff changeset
414 unless ($labels{$locale}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
415 $labels{$locale} = -f "$fname.$locale" ?
86b470004d47 added lables loading
cin
parents: 348
diff changeset
416 IMPL::Resources::Strings::ParseStringsMap("$fname.$locale") :
86b470004d47 added lables loading
cin
parents: 348
diff changeset
417 {};
86b470004d47 added lables loading
cin
parents: 348
diff changeset
418 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
419
86b470004d47 added lables loading
cin
parents: 348
diff changeset
420 return FormatMessage(($labels{$locale}{$label} || $text),$params);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
421 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
422 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
423 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
424
86b470004d47 added lables loading
cin
parents: 348
diff changeset
425 return \%vars;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
426 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
427
345
cin
parents: 343
diff changeset
428 1;
cin
parents: 343
diff changeset
429
cin
parents: 343
diff changeset
430 __END__
cin
parents: 343
diff changeset
431
cin
parents: 343
diff changeset
432 =pod
cin
parents: 343
diff changeset
433
cin
parents: 343
diff changeset
434 =head1 NAME
cin
parents: 343
diff changeset
435
cin
parents: 343
diff changeset
436 C<IMPL::Web::View::TTContext> - доработанная версия контекста
cin
parents: 343
diff changeset
437
cin
parents: 343
diff changeset
438 =head1 DESCRIPTION
cin
parents: 343
diff changeset
439
cin
parents: 343
diff changeset
440 Расширяет функции C<Template::Context>
cin
parents: 343
diff changeset
441
cin
parents: 343
diff changeset
442 =begin plantuml
cin
parents: 343
diff changeset
443
cin
parents: 343
diff changeset
444 @startuml
cin
parents: 343
diff changeset
445
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
446 object RootContext {
345
cin
parents: 343
diff changeset
447 document
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
448 globals
345
cin
parents: 343
diff changeset
449 }
cin
parents: 343
diff changeset
450
cin
parents: 343
diff changeset
451 object DocumentContext {
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
452 base
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
453 extends
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
454 }
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
455
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
456 object ControlContext {
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
457 base
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
458 extends
345
cin
parents: 343
diff changeset
459 }
cin
parents: 343
diff changeset
460
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
461 RootContext o-- DocumentContext
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
462 RootContext o-- ControlContext
345
cin
parents: 343
diff changeset
463
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
464 Document -- DocumentContext
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
465 Control - ControlContext
345
cin
parents: 343
diff changeset
466
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
467 Loader . RootContext: <<creates>>
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
468 Loader . Document: <<creates>>
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
469 Loader -up- Registry
345
cin
parents: 343
diff changeset
470
cin
parents: 343
diff changeset
471 @enduml
cin
parents: 343
diff changeset
472
cin
parents: 343
diff changeset
473 =end plantuml
cin
parents: 343
diff changeset
474
cin
parents: 343
diff changeset
475 =head1 MEMBERS
cin
parents: 343
diff changeset
476
cin
parents: 343
diff changeset
477 =head2 C<[get,set]base>
cin
parents: 343
diff changeset
478
cin
parents: 343
diff changeset
479 Префикс пути для поиска шаблонов
cin
parents: 343
diff changeset
480
cin
parents: 343
diff changeset
481 =head2 C<template($name)>
cin
parents: 343
diff changeset
482
cin
parents: 343
diff changeset
483 Сначала пытается загрузить шаблон используя префикс C<base>, затем без префикса.
cin
parents: 343
diff changeset
484
cin
parents: 343
diff changeset
485 =head2 C<clone()>
cin
parents: 343
diff changeset
486
cin
parents: 343
diff changeset
487 Создает копию контекста, при этом C<stash> локализуется, таким образом
cin
parents: 343
diff changeset
488 клонированный контекст имеет собственное пространство имен, вложенное в
cin
parents: 343
diff changeset
489 пространство родительского контекста.
cin
parents: 343
diff changeset
490
cin
parents: 343
diff changeset
491 =cut