Mercurial > pub > Impl
comparison Lib/IMPL/Web/View/TTControl.pm @ 188:029c9610528c
Memory leak tests in IMPL::Web::View
author | cin |
---|---|
date | Tue, 03 Apr 2012 20:08:42 +0400 |
parents | 927653d01f4f |
children | 08015e2803f1 |
comparison
equal
deleted
inserted
replaced
187:927653d01f4f | 188:029c9610528c |
---|---|
34 $this->template( $template ) or die new IMPL::ArgumentException("A template is required"); | 34 $this->template( $template ) or die new IMPL::ArgumentException("A template is required"); |
35 $this->context( $context ) or die new IMPL::ArgumentException("A context is required"); | 35 $this->context( $context ) or die new IMPL::ArgumentException("A context is required"); |
36 | 36 |
37 if ( my $ctor = $template->blocks->{CTOR} ) { | 37 if ( my $ctor = $template->blocks->{CTOR} ) { |
38 $context->process($ctor, { this => $this } ); | 38 $context->process($ctor, { this => $this } ); |
39 $this->templateVars('this',undef); | |
39 } | 40 } |
40 | 41 |
41 $this->id($name . "-" . _GetNextId()) unless $this->id; | 42 $this->id($name . "-" . _GetNextId()) unless $this->id; |
42 | 43 |
43 } | 44 } |
83 | 84 |
84 return if $method eq 'DESTROY'; | 85 return if $method eq 'DESTROY'; |
85 | 86 |
86 my $this = shift; | 87 my $this = shift; |
87 | 88 |
88 $this->nodeProperty(@_); | 89 $this->nodeProperty($method,@_); |
89 } | 90 } |
90 | 91 |
91 1; | 92 1; |
92 | 93 |
93 __END__ | 94 __END__ |