Mercurial > pub > Impl
annotate Lib/IMPL/Web/View/TTContext.pm @ 343:9bdccdf1f50b
Added a templates context
| author | cin |
|---|---|
| date | Fri, 13 Sep 2013 12:53:15 +0400 |
| parents | |
| children | 72799d1211c5 |
| rev | line source |
|---|---|
| 343 | 1 package IMPL::Web::View::TTContext; |
| 2 use strict; | |
| 3 use Template::Base; | |
| 4 | |
| 5 use IMPL::declare { | |
| 6 base => { | |
| 7 'Template::Context' => '@_' | |
| 8 } | |
| 9 }; | |
| 10 | |
| 11 sub clone { | |
| 12 my $this = shift; | |
| 13 | |
| 14 $this->localise(); | |
| 15 | |
| 16 my $args = { %{$this} }; | |
| 17 | |
| 18 $this->delocalise(); | |
| 19 | |
| 20 my $class = typeof($this); | |
| 21 | |
| 22 delete $args->{CONFIG}; | |
| 23 | |
| 24 return $class->new($args); | |
| 25 } | |
| 26 | |
| 27 1; |