Mercurial > pub > Impl
comparison Lib/IMPL/Web/View/TTControl.pm @ 301:aeeb57a12046
*IMPL::Web::View: templates inheritance support
| author | cin |
|---|---|
| date | Mon, 25 Mar 2013 02:04:18 +0400 |
| parents | bf3af33b9003 |
| children | 673581380e79 |
comparison
equal
deleted
inserted
replaced
| 300:bf3af33b9003 | 301:aeeb57a12046 |
|---|---|
| 40 $this->template( $template ) or die new IMPL::ArgumentException("A template is required"); | 40 $this->template( $template ) or die new IMPL::ArgumentException("A template is required"); |
| 41 $this->context( $context ) or die new IMPL::ArgumentException("A context is required"); | 41 $this->context( $context ) or die new IMPL::ArgumentException("A context is required"); |
| 42 | 42 |
| 43 $this->attributes({}); | 43 $this->attributes({}); |
| 44 | 44 |
| 45 if(reftype($attrs) eq 'HASH') { | 45 if(ref($attrs) eq 'HASH') { |
| 46 while (my($key,$value) = each %$attrs) { | 46 while (my($key,$value) = each %$attrs) { |
| 47 $this->SetAttribute($key,$value); | 47 $this->SetAttribute($key,$value); |
| 48 } | 48 } |
| 49 } | 49 } |
| 50 | 50 |
| 78 my ($this,$args) = @_; | 78 my ($this,$args) = @_; |
| 79 | 79 |
| 80 $args = {} unless ref $args eq 'HASH'; | 80 $args = {} unless ref $args eq 'HASH'; |
| 81 | 81 |
| 82 return $this->context->include( | 82 return $this->context->include( |
| 83 $this->template, | 83 $this->template->block, |
| 84 { | 84 { |
| 85 %$args, | 85 %$args, |
| 86 this => $this, | 86 this => $this, |
| 87 template => $this->template | 87 template => $this->template |
| 88 } | 88 } |
