Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/TTContext.pm @ 353:feeb3bc4a818

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected error handling while loading templates corrected variables lookup in controls updated handles to use the new view features
author cin
date Fri, 11 Oct 2013 15:49:04 +0400
parents 675cd1829255
children 9330835535b9
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
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
140 if (not(($args and delete $args->{_no_resolve}) or ref $model)) {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
141 $prefix = $prefix ? "${prefix}.${model}" : $model;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
142 $model = $this->resolve_model($model);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
143 } else {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
144 $prefix = "";
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
145 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
146
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
147 $template = $template ? $this->find_template($template) : $this->find_template_for($model);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
148
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
149 return $this->render(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
150 $template,
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
151 hashApply(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
152 {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
153 prefix => $prefix,
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
154 model => $model,
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
155 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
156 $args
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
157 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
158 );
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
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
161 sub display_model {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
162 my $this = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
163 my $model = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
164 my ($template, $args);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
165
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
166 if (ref $_[0] eq 'HASH') {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
167 $args = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
168 } else {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
169 $template = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
170 $args = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
171 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
172
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
173 $args ||= {};
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 my $prefix = delete $args->{prefix} || $this->prefix;
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 if (my $rel = delete $args->{rel}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
178 $prefix = $prefix ? "${prefix}.${rel}" : $rel;
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
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
181 $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
182
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
183 return $this->render(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
184 $template,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
185 hashApply(
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 prefix => $prefix,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
188 model => $model,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
189 },
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
190 $args
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 );
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
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
195 sub invoke_environment {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
196 my ($this,$code,$env) = @_;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
197
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
198 $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 my $out = eval {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
201 $this->localise(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
202 hashApply(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
203 {
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
204 aliases => $this->aliases || {},
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
205 root => $this->root || $this,
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
206 modules => $this->modules || {},
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
207 cache => TypeKeyedCollection->new(),
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
208 display => sub {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
209 $this->display(@_);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
210 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
211 render => sub {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
212 $this->render(@_);
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
213 },
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
214 display_model => sub {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
215 $this->display_model(@_);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
216 },
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
217 tt_cache => {}
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
218 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
219 $env
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
220 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
221 );
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 &$code($this);
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 my $e = $@;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
227 $this->delocalise();
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 die $e if $e;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
230
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
231 return $out;
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
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
234 sub render {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
235 my ($this,$template,$args) = @_;
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 $args ||= {};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
238
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
239 my $info = ref $template ? $template : $this->find_template($template);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
240
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
241 if (ref($info) ne 'HASH') {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
242 carp "got an invalid template object: $info (" . ref($info) . ")";
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
243 $info = {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
244 template => $info,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
245 base => $this->base,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
246 initialized => 1
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
247 };
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
248 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
249
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
250 return $this->invoke_environment(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
251 sub {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
252 my $ctx = shift;
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
253
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
254 unless($info->{initialized}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
255 if(my $init = $info->{template}->blocks->{INIT}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
256 $info->{initialized} = 1;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
257 eval {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
258 $ctx->visit($info->{template}->blocks);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
259 $ctx->include($init);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
260 };
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
261 $ctx->leave();
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
262 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
263 }
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
264
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
265 if (my $class = $info->{class}) {
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
266 $class->new($this,$info->{template})->Render($args);
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
267 } else {
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
268 return $ctx->include($info->{template},$args);
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
269 }
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
270 },
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
271 hashMerge(
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
272 $info->{labels} || {},
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
273 {
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
274 base => $info->{base},
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
275 parent => $this
86b470004d47 added lables loading
cin
parents: 348
diff changeset
276 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
277 )
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
278 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
279 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
280
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
281 sub resolve_model {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
282 my ($this,$prefix) = @_;
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 die ArgException->new(prefix => "the prefix must be specified")
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
285 unless defined $prefix;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
286
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
287 #TODO handle DOM models
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
288
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
289 my @comp = map { $_, 0 } grep length($_), split(/\.|\[(\d+)\]/, $prefix);
347
cin
parents: 346
diff changeset
290
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
291 return $this->stash->get(['model',0,@comp]);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
292 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
293
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
294 sub find_template_for {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
295 my ($this,$model) = @_;
347
cin
parents: 346
diff changeset
296
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
297 my $type = typeof($model);
347
cin
parents: 346
diff changeset
298
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
299 return $this->find_template('templates/plain') unless $type;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
300
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
301 if (my $template = $this->cache->Get($type)) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
302 return $template;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
303 } else {
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 no strict 'refs';
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
306
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
307 my @isa = $type;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
308
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
309 while (@isa) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
310 my $sclass = shift @isa;
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 (my $name = $sclass) =~ s/:+/_/g;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
313
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
314 $template = $this->find_template("templates/$name");
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 if ($template) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
317 $this->cache->Set($sclass,$template);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
318 return $template;
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 push @isa, @{"${sclass}::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
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
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
326 return;
347
cin
parents: 346
diff changeset
327 }
cin
parents: 346
diff changeset
328
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
329 sub get_real_file {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
330 my ($this,$fname) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
331
86b470004d47 added lables loading
cin
parents: 348
diff changeset
332 my @path = split(/\/+/,$fname);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
333
86b470004d47 added lables loading
cin
parents: 348
diff changeset
334 foreach my $provider (@{$this->load_templates || []}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
335 foreach my $dir (@{$provider->paths || []}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
336 my $realName = File::Spec->catfile($dir,@path);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
337 return $realName if -f $realName;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
338 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
339 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
340 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
341
86b470004d47 added lables loading
cin
parents: 348
diff changeset
342 sub load_labels {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
343 my ($this,$fname) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
344
86b470004d47 added lables loading
cin
parents: 348
diff changeset
345 $fname = $this->get_real_file($fname);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
346
86b470004d47 added lables loading
cin
parents: 348
diff changeset
347 my %vars;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
348
86b470004d47 added lables loading
cin
parents: 348
diff changeset
349 my $flabels = "$fname.labels";
86b470004d47 added lables loading
cin
parents: 348
diff changeset
350
86b470004d47 added lables loading
cin
parents: 348
diff changeset
351 if (-f $flabels) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
352
86b470004d47 added lables loading
cin
parents: 348
diff changeset
353 my %labels;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
354 $labels{default} = IMPL::Resources::Strings::ParseStringsMap($flabels);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
355
86b470004d47 added lables loading
cin
parents: 348
diff changeset
356 while(my($label,$text) = each %{$labels{default}}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
357 $vars{$label} = sub {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
358 my ($params) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
359 my $locale = Resources->currentLocale;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
360
86b470004d47 added lables loading
cin
parents: 348
diff changeset
361 unless ($labels{$locale}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
362 $labels{$locale} = -f "$fname.$locale" ?
86b470004d47 added lables loading
cin
parents: 348
diff changeset
363 IMPL::Resources::Strings::ParseStringsMap("$fname.$locale") :
86b470004d47 added lables loading
cin
parents: 348
diff changeset
364 {};
86b470004d47 added lables loading
cin
parents: 348
diff changeset
365 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
366
86b470004d47 added lables loading
cin
parents: 348
diff changeset
367 return FormatMessage(($labels{$locale}{$label} || $text),$params);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
368 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
369 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
370 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
371
86b470004d47 added lables loading
cin
parents: 348
diff changeset
372 return \%vars;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
373 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
374
345
cin
parents: 343
diff changeset
375 1;
cin
parents: 343
diff changeset
376
cin
parents: 343
diff changeset
377 __END__
cin
parents: 343
diff changeset
378
cin
parents: 343
diff changeset
379 =pod
cin
parents: 343
diff changeset
380
cin
parents: 343
diff changeset
381 =head1 NAME
cin
parents: 343
diff changeset
382
cin
parents: 343
diff changeset
383 C<IMPL::Web::View::TTContext> - доработанная версия контекста
cin
parents: 343
diff changeset
384
cin
parents: 343
diff changeset
385 =head1 DESCRIPTION
cin
parents: 343
diff changeset
386
cin
parents: 343
diff changeset
387 Расширяет функции C<Template::Context>
cin
parents: 343
diff changeset
388
cin
parents: 343
diff changeset
389 =begin plantuml
cin
parents: 343
diff changeset
390
cin
parents: 343
diff changeset
391 @startuml
cin
parents: 343
diff changeset
392
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
393 object RootContext {
345
cin
parents: 343
diff changeset
394 document
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
395 globals
345
cin
parents: 343
diff changeset
396 }
cin
parents: 343
diff changeset
397
cin
parents: 343
diff changeset
398 object DocumentContext {
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
399 base
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
400 extends
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
401 }
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
402
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
403 object ControlContext {
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
404 base
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
405 extends
345
cin
parents: 343
diff changeset
406 }
cin
parents: 343
diff changeset
407
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
408 RootContext o-- DocumentContext
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
409 RootContext o-- ControlContext
345
cin
parents: 343
diff changeset
410
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
411 Document -- DocumentContext
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
412 Control - ControlContext
345
cin
parents: 343
diff changeset
413
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
414 Loader . RootContext: <<creates>>
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
415 Loader . Document: <<creates>>
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
416 Loader -up- Registry
345
cin
parents: 343
diff changeset
417
cin
parents: 343
diff changeset
418 @enduml
cin
parents: 343
diff changeset
419
cin
parents: 343
diff changeset
420 =end plantuml
cin
parents: 343
diff changeset
421
cin
parents: 343
diff changeset
422 =head1 MEMBERS
cin
parents: 343
diff changeset
423
cin
parents: 343
diff changeset
424 =head2 C<[get,set]base>
cin
parents: 343
diff changeset
425
cin
parents: 343
diff changeset
426 Префикс пути для поиска шаблонов
cin
parents: 343
diff changeset
427
cin
parents: 343
diff changeset
428 =head2 C<template($name)>
cin
parents: 343
diff changeset
429
cin
parents: 343
diff changeset
430 Сначала пытается загрузить шаблон используя префикс C<base>, затем без префикса.
cin
parents: 343
diff changeset
431
cin
parents: 343
diff changeset
432 =head2 C<clone()>
cin
parents: 343
diff changeset
433
cin
parents: 343
diff changeset
434 Создает копию контекста, при этом C<stash> локализуется, таким образом
cin
parents: 343
diff changeset
435 клонированный контекст имеет собственное пространство имен, вложенное в
cin
parents: 343
diff changeset
436 пространство родительского контекста.
cin
parents: 343
diff changeset
437
cin
parents: 343
diff changeset
438 =cut