annotate Lib/IMPL/Web/TT/Document.pm @ 114:7084af955c57

minor changes, more strict code, no bugs fixed, no features added
author wizard
date Tue, 25 May 2010 01:26:42 +0400
parents ddf0f037d460
children 0475eb382085
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
1 package IMPL::Web::TT::Document;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
4
75
wizard
parents: 49
diff changeset
5 use base qw(IMPL::DOM::Document IMPL::Object::Disposable);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
6 use Template::Context;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
7 use Template::Provider;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
8 use IMPL::Class::Property;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
9 use File::Spec;
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
10 use Scalar::Util qw(blessed);
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
11 use IMPL::Web::TT::Collection;
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
12 use IMPL::Web::TT::Control;
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
13 use Carp;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
14
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
15 BEGIN {
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
16 private property _provider => prop_all;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
17 private property _context => prop_all;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
18 public property template => prop_get | owner_set;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
19 public property presenter => prop_all, { validate => \&_validatePresenter };
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
20 private property _controlClassMap => prop_all;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
21 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
22
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
23 our %CTOR = (
75
wizard
parents: 49
diff changeset
24 'IMPL::DOM::Document' => sub { nodeName => 'document' }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
25 );
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
26
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
27 sub CTOR {
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
28 my ($this) = @_;
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
29
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
30 $this->_controlClassMap({});
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
31 $this->registerControlClass( Control => 'IMPL::Web::TT::Control' );
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
32 $this->appendChild( $this->Create(body => 'IMPL::Web::TT::Collection') );
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
33 $this->appendChild( $this->Create(head => 'IMPL::Web::TT::Collection') );
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
34 }
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
35
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
36 sub CreateControl {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
37 my ($this,$name,$class,$args) = @_;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
38
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
39 $args = {} unless ref $args eq 'HASH';
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
40
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
41 if (my $info = $this->_controlClassMap->{$class}) {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
42 my %nodeArgs = (%{$info->{args}},%$args);
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
43 $nodeArgs{controlClass} = $class;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
44
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
45 return $this->Create($name,$info->{type},\%nodeArgs);
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
46 } else {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
47 die new IMPL::Exception('A control is\'t registered', $class, $name);
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
48 }
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
49 }
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
50
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
51 sub provider {
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
52 my ($this,%args) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
53
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
54 if (my $provider = $this->_provider) {
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
55 return $provider;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
56 } else {
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
57 return $this->_provider(new Template::Provider(
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
58 \%args
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
59 ));
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
60 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
61 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
62
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
63 sub context {
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
64 my ($this) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
65
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
66 if (my $ctx = $this->_context) {
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
67 return $ctx;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
68 } else {
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
69 return $this->_context (
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
70 new Template::Context(
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
71 VARIABLES => {
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
72 document => $this,
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
73 this => $this,
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
74 render => sub {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
75 $this->_process(@_);
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
76 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
77 },
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
78 TRIM => 1,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
79 RECURSION => 1,
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
80 LOAD_TEMPLATES => [$this->provider]
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
81 )
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
82 )
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
83 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
84 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
85
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
86 sub registerControlClass {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
87 my ($this, $controlClass, $type, $args) = @_;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
88
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
89 $type ||= 'IMPL::Web::TT::Control';
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
90
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
91 die new IMPL::InvalidArgumentException("A controlClass must be a single word",$controlClass) unless $controlClass =~ /^\w+$/;
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
92
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
93 eval "require $type; 1;" or die new IMPL::Exception("Failed to load a module",$type,"$@") unless ref $type or $INC{$type};
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
94
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
95 die new IMPL::InvalidArgumentException("A type must be subclass of IMPL::DOM::Node",$type) unless $type->isa('IMPL::DOM::Node');
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
96
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
97 $this->_controlClassMap->{$controlClass} = {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
98 controlClass => $controlClass,
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
99 type => $type,
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
100 args => ref $args eq 'HASH' ? $args : {}
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
101 };
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
102 }
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
103
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
104 sub isControlClass {
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
105 my ($this,$name) = @_;
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
106 return $this->_controlClassMap->{$name} ? 1 : 0;
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
107 }
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
108
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
109 sub _getControls {
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
110 my ($this) = @_;
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
111
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
112 my ($node) = $this->selectNodes('controls');
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
113 return $node;
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
114 }
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
115
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
116 sub _validatePresenter {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
117 my ($this,$value) = @_;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
118
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
119 die new IMPL::InvalidArgumentException("A view object is required") unless blessed($value) and $value->isa('Template::View');
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
120 }
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
121
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
122 sub LoadFile {
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
123 my ($this,$filePath,$encoding) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
124
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
125 die new IMPL::InvalidArgumentException("A filePath parameter is required") unless $filePath;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
126
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
127 $encoding ||= 'utf8';
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
128
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
129 $this->_context(undef);
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
130 $this->_provider(undef);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
131
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
132 my ($vol,$dir,$fileName) = File::Spec->splitpath($filePath);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
133
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
134 my $inc = File::Spec->catpath($vol,$dir,'');
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
135
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
136 $this->provider(
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
137 ENCODING => $encoding,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
138 INTERPOLATE => 1,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
139 PRE_CHOMP => 1,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
140 POST_CHOMP => 1,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
141 INCLUDE_PATH => $inc
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
142 );
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
143
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
144 $this->template($this->context->template($fileName));
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
145 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
146
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
147 sub AddVar {
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
148 my ($this,$name,$value) = @_;
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
149
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
150 $this->context->stash->set($name,$value);
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
151 }
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
152
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
153 sub title {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
154 $_[0]->template->title;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
155 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
156
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
157 sub Render {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
158 my ($this) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
159
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
160 return $this->template->process($this->context);
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
161 }
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
162
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
163 # Формирует представление для произвольных объектов
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
164 sub _process {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
165 my ($this,@items) = @_;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
166
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
167 my @result;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
168
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
169 foreach my $item (@items) {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
170 if (blessed($item) and $item->isa('IMPL::Web::TT::Control')) {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
171 push @result, $item->Render();
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
172 } elsif(blessed($item)) {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
173 if ($this->presenter) {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
174 push @result, $this->presenter->print($item);
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
175 } else {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
176 push @result, $this->toString;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
177 }
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
178 } else {
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
179 push @result, $item;
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
180 }
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
181 }
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
182
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 97
diff changeset
183 return join '',@result;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
184 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
185
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
186 our $AUTOLOAD;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
187 sub AUTOLOAD {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
188 my $this = shift;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
189 my ($method) = ($AUTOLOAD =~ /(\w+)$/);
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
190
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
191 if($method =~ /^create(\w+)/) {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
192 my ($name,$args) = @_;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
193 return $this->CreateControl($name,$1,$args);
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
194 }
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
195
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
196 my @result = $this->selectNodes($method);
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
197
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
198 return $result[0] if @result;
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
199 carp "Looks like you have a mistake, document doesn't have a such property or child: $method";
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
200 return;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
201 }
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
202
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
203 sub as_list {
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
204 $_[0]->childNodes;
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
205 }
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
206
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
207 sub Dispose {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
208 my ($this) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
209
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
210 $this->template(undef);
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
211 $this->_context(undef);
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
212 $this->_provider(undef);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
213
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
214 $this->supercall::Dispose();
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
215 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
216
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
217 1;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
218 __END__
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
219 =pod
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
220
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
221 =head1 NAME
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
222
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
223 C<IMPL::Web::TT::Document> - Документ, позволяющий строить представление по шаблону
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
224
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
225 =head1 SYNOPSIS
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
226
75
wizard
parents: 49
diff changeset
227 =begin code
wizard
parents: 49
diff changeset
228
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
229 // create new document
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
230 my $doc = new IMPL::Web::TT::Document;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
231
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
232 // load template
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
233 $doc->loadFile('Templates/index.tt');
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
234
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
235 // render file
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
236 print $doc->Render();
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
237
75
wizard
parents: 49
diff changeset
238 =end code
wizard
parents: 49
diff changeset
239
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
240 =head1 DESCRIPTION
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
241
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
242 C<use base qw(IMPL::DOM::Document)>
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
243
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
244 Документ, основанный на шаблоне Template::Toolkit. Позволяет загрузить шаблон,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
245 и сформировать окончательный документ. Является наследником C<IMPL::DOM::Node>,
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
246 т.о. может быть использован для реализации DOM модели.
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
247
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
248 Внутри шаблона переменная C<document> ссылается на объект документа. По этой
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
249 причине образуется циклическая ссылка между объектами шаблона и документом, что
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
250 требует вызова метода C<Dispose> для освобождения документа.
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
251
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
252 =head1 METHODS
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
253
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
254 =over
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
255
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
256 =item C<CTOR()>
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
257
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
258 Создает новый экземпляр документа, свойство C<nodeName> устанавливается в 'C<document>'
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
259
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
260 =item C<$doc->LoadFile($fileName,$encoding)>
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
261
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
262 Загружает шаблон из файла C<$fileName>, используя кодировку C<$encoding>. Если
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
263 кодировка не указана, использует utf-8.
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
264
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
265 =item C<$doc->Render()>
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
266
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
267 Возвращает данные построенные на основе загруженного шаблона.
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
268
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
269 =item C<$doc->Dispose()>
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
270
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
271 Освобождает ресурсы и помечает объект как освобожденный.
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
272
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
273 =back
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
274
76
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
275 =head1 DOM
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
276
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
277 Документ представляет собой DOM документ, состоящий из узлов, которые представляют собой данные
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
278 для отображения. Для форматированого вывода используется C<template>.
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
279
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
280 В качестве элементов документа могут присутсвовать специальные объекты C<IMPL::Web::TT::Control>,
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
281 которые внутри содержат шаблон для форматирования собственного содержимого.
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
282
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
283
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
284
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
285 Документ предоставляет ряд фнукций для работы с элементами управления.
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
286
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
287 =head1 TEMPLATE
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
288
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
289 =begin code html
76
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
290
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
291 [% CALL document.registerClass( 'Table', 'My::TableClass', template => 'tables/pretty.tt' ) %]
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
292 [% CALL document.registerClass( 'Form' )%]
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
293
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
294 [% table = document.сreateTable('env') %]
76
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
295
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
296 [% FOEACH item in document.result %]
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
297 [% table.rows.Add( item.get('name','value') ) %]
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
298 [% END %]
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
299
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
300 [% form = document.createForm('login') %]
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
301 [% form.template = 'LOGIN_FORM'%]
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
302
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
303 [% FOREACH item IN document.childNodes %]
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
304 [%render(item)%]
76
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
305 [% END %]
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
306
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
307 [% BLOCK LOGIN_FORM %]
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
308 <form method="POST" action='/login.pl'>
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
309 user: [% render(this.item('name')) %] password: [% render(this.item('password')) %] <input type="submit"/>
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
310 </form>
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
311 [% END %]
76
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
312
77
9d24db321029 Refactoring Web::TT
wizard
parents: 76
diff changeset
313 =end code html
76
b1652a158b2b Web::DOM
wizard
parents: 75
diff changeset
314
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 7
diff changeset
315 =cut