comparison 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
comparison
equal deleted inserted replaced
342:1090c1dd7429 343:9bdccdf1f50b
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;