Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/TTDocument.pm @ 330:fe725fad2d90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added access checking to web resources
author sergey
date Tue, 04 Jun 2013 19:25:54 +0400
parents ec4ec1f056fe
children 9bdccdf1f50b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
1 package IMPL::Web::View::TTDocument;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
2 use strict;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
3
236
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
4 use Scalar::Util qw(weaken);
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
5 use IMPL::Const qw(:prop);
288
3a9cfea098dd *TTView refactoring: removed RequireControl method, etc.
sergey
parents: 287
diff changeset
6 use IMPL::lang qw(:hash is);
3a9cfea098dd *TTView refactoring: removed RequireControl method, etc.
sergey
parents: 287
diff changeset
7 use Carp qw(carp);
3a9cfea098dd *TTView refactoring: removed RequireControl method, etc.
sergey
parents: 287
diff changeset
8 use mro;
309
cin
parents: 308
diff changeset
9 use IMPL::Exception();
236
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
10 use IMPL::declare {
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
11 require => {
305
b5d5793f348e TTView refactoring, still experiencing memory leaks
sergey
parents: 304
diff changeset
12 TTRegistry => 'IMPL::Web::View::TTRegistry',
236
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
13 TTFactory => 'IMPL::Web::View::TTFactory',
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
14 TTControl => 'IMPL::Web::View::TTControl',
309
cin
parents: 308
diff changeset
15 Loader => 'IMPL::Code::Loader',
cin
parents: 308
diff changeset
16 OpException => '-IMPL::InvalidOperationException'
236
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
17 },
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
18 base => [
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
19 'IMPL::Web::View::TTControl' => sub {
309
cin
parents: 308
diff changeset
20 my ($template,$ctx,$vars) = @_;
288
3a9cfea098dd *TTView refactoring: removed RequireControl method, etc.
sergey
parents: 287
diff changeset
21 $ctx ||= Template::Context->new();
309
cin
parents: 308
diff changeset
22 return $template, $ctx, $vars; # context
236
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
23 }
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
24 ],
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
25 props => [
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
26 layout => PROP_RW,
311
cin
parents: 310
diff changeset
27 layoutBase => PROP_RW,
cin
parents: 310
diff changeset
28 registry => PROP_RW,
307
2da2564f115d *TTView: fixed memory leak
cin
parents: 305
diff changeset
29 baseLocation => PROP_RW
236
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
30 ]
2904da230022 DOM refactoring
sergey
parents: 234
diff changeset
31 };
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
32
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
33 sub CTOR {
311
cin
parents: 310
diff changeset
34 my ($this,$template,$ctx) = @_;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 193
diff changeset
35
4d0e1962161c Replaced tabs with spaces
cin
parents: 193
diff changeset
36 $this->layout( $template->layout ) unless $this->layout;
301
aeeb57a12046 *IMPL::Web::View: templates inheritance support
cin
parents: 300
diff changeset
37 $this->title( $template->title ) unless $this->title;
311
cin
parents: 310
diff changeset
38 my $doc = $this;
cin
parents: 310
diff changeset
39 weaken($doc);
cin
parents: 310
diff changeset
40 $this->registry->context->stash->update({
cin
parents: 310
diff changeset
41 document => sub { $doc }
cin
parents: 310
diff changeset
42 });
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
43 }
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
44
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
45 sub Render {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 193
diff changeset
46 my ($this,$args) = @_;
288
3a9cfea098dd *TTView refactoring: removed RequireControl method, etc.
sergey
parents: 287
diff changeset
47
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents: 238
diff changeset
48 $args ||= {};
310
0a9d51cf6dfd *TTView: refactoring, document supports custom classes, layouts are become controls
sergey
parents: 309
diff changeset
49 $args->{document} = $this;
290
7b0dad6117d5 *TTView: fixed memory leak
sergey
parents: 289
diff changeset
50
288
3a9cfea098dd *TTView refactoring: removed RequireControl method, etc.
sergey
parents: 287
diff changeset
51
313
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
52 if ($this->layout) {
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
53 my $layout = $this->registry->Require(join('/',$this->layoutBase, $this->layout))->new();
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
54
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
55 my $next = $this->next::can();
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
56
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
57 return $layout->Render({
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
58 content => sub { $this->$next($args) },
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
59 template => $this->template,
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
60 document => $this
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
61 });
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 193
diff changeset
62 } else {
313
ec4ec1f056fe TTView: page content now rendered lazy therefore a page layout must wrap the document content
cin
parents: 311
diff changeset
63 return $this->next::method($args);
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 193
diff changeset
64 }
190
cd1ff7029a63 IMLP::Web::View refactored, added new method 'require' which is available inside templates. Changed document rendering.
cin
parents: 189
diff changeset
65 }
cd1ff7029a63 IMLP::Web::View refactored, added new method 'require' which is available inside templates. Changed document rendering.
cin
parents: 189
diff changeset
66
303
a5eb64c6e6f7 TTDocument.GetTemplate corrected to work with document blocks
cin
parents: 301
diff changeset
67 sub GetTemplate {
a5eb64c6e6f7 TTDocument.GetTemplate corrected to work with document blocks
cin
parents: 301
diff changeset
68 my ($this,$name) = @_;
a5eb64c6e6f7 TTDocument.GetTemplate corrected to work with document blocks
cin
parents: 301
diff changeset
69
a5eb64c6e6f7 TTDocument.GetTemplate corrected to work with document blocks
cin
parents: 301
diff changeset
70 $this->template->blocks->{$name};
a5eb64c6e6f7 TTDocument.GetTemplate corrected to work with document blocks
cin
parents: 301
diff changeset
71 }
a5eb64c6e6f7 TTDocument.GetTemplate corrected to work with document blocks
cin
parents: 301
diff changeset
72
308
sergey
parents: 307
diff changeset
73 sub DTOR {
sergey
parents: 307
diff changeset
74 my $this = shift;
sergey
parents: 307
diff changeset
75
sergey
parents: 307
diff changeset
76 $this->registry->Dispose() if $this->registry;
sergey
parents: 307
diff changeset
77 }
sergey
parents: 307
diff changeset
78
289
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
79 sub _clone_context {
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
80 my $args = { %{shift || {}} };
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
81 delete $args->{CONFIG};
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
82
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
83 return Template::Context->new($args);
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
84 }
85572f512abc *TTView refactoring
cin
parents: 288
diff changeset
85
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
86 1;
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
87
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
88 __END__
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
89
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
90 =pod
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
91
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
92 =head1 NAME
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
93
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
94 C<IMPL::Web::View::TTDocument> - документ для построения HTML страницы на основе шаблонов TT.
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
95
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
96 =head1 SYNOPSIS
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
97
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
98 =begin code
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
99
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
100
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
101 =end code
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
102
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
103 =head1 DESCRIPTION
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
104
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
105
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
106 =over
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
107
195
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
108
181
47dac58691ee New templating system, small fixes
sourcer
parents:
diff changeset
109 =cut