Mercurial > pub > Impl

comparison Lib/IMPL/Web/TT/Control.pm @ 107:0e72ad99eef7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated Web::TT
author wizard
date Thu, 13 May 2010 03:46:29 +0400
parents a5cb84374d40
children c6fb6964de4c
comparison
equal deleted inserted replaced
106:83e356614c1e 107:0e72ad99eef7
2 2
3 use base qw(IMPL::DOM::Node); 3 use base qw(IMPL::DOM::Node);
4 4
5 use IMPL::Class::Property; 5 use IMPL::Class::Property;
6 6
7 our %CTOR = ( 7 __PACKAGE__->PassThroughArgs;
8 'IMPL::DOM::Node' => sub {
9 #TODO: Pass arguments
10 }
11 );
12 8
13 BEGIN { 9 BEGIN {
14 public property template => prop_all; 10 public property template => prop_all;
11 public property id => prop_all;
12 }
13
14 my $nextId = 1;
15
16 sub CTOR {
17 my ($this,%args) = @_;
18
19 $this->template($args{template}) if $args{template};
20 $this->id($this->nodeName . '-' . $nextId++);
15 } 21 }
16 22
17 sub Render { 23 sub Render {
18 my ($this) = @_; 24 my ($this) = @_;
19 25