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__