comparison Lib/IMPL/Web/View/TTControl.pm @ 314:109f28643025

sync
author cin
date Thu, 02 May 2013 10:43:49 +0400
parents 2da2564f115d
children 71221d79e6b4
comparison
equal deleted inserted replaced
313:ec4ec1f056fe 314:109f28643025
105 $tpl, 105 $tpl,
106 $args 106 $args
107 ); 107 );
108 } 108 }
109 109
110 sub HasBlock {
111 my ($this,$block) = @_;
112
113 $this->GetTemplate ? 1 : 0;
114 }
115
110 sub AUTOLOAD { 116 sub AUTOLOAD {
111 our $AUTOLOAD; 117 our $AUTOLOAD;
112 118
113 my $method = ($AUTOLOAD =~ m/(\w+)$/)[0]; 119 my $method = ($AUTOLOAD =~ m/(\w+)$/)[0];
114 120