Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
1 package IMPL::Web::TT::Control;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
2
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
3 use base qw(IMPL::Web::TT::Collection);
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
4
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
5 use IMPL::Class::Property;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
6
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
7 __PACKAGE__->PassThroughArgs;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
8
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
9 BEGIN {
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
10 public property controlClass => prop_all;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
11 public property template => prop_all;
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
12 public property id => prop_all;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
13 }
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
14
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
15 my $nextId = 1;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
16
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
17 sub CTOR {
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
18 my ($this,%args) = @_;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
19
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
20 if ($this->document) {
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
21 # load a template
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
22 #$args{template} = $this->document->context->template($args{template}) if ($args{template});
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
23 }
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
24 $this->template($args{template}) if $args{template};
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
25
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
26 $this->id($this->nodeName . '-' . $nextId++);
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
27 $this->controlClass($args{controlClass} || 'Control');
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
28 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
29
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
30 sub Render {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
31 my ($this) = @_;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
32
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
33 if ($this->document) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
34 if ($this->template) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
35 return $this->document->context->include($this->template,{ this => $this });
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
36 } elsif ($this->document->presenter) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
37 return $this->document->presenter->print($this);
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
38 } else {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
39 return $this->toString();
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
40 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
41 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
42 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
43
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
44 1;