Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/TTContext.pm @ 355:8dfb9df07d02

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