view Lib/IMPL/Web/View/TTContext.pm @ 344:f1d67615a5b1

uml diagram
author cin
date Mon, 23 Sep 2013 00:09:26 +0400
parents 9bdccdf1f50b
children 72799d1211c5
line wrap: on
line source

package IMPL::Web::View::TTContext;
use strict;
use Template::Base;

use IMPL::declare {
	base => {
		'Template::Context' => '@_'
	}
};

sub clone {
	my $this = shift;
	
	$this->localise();	

	my $args = { %{$this} };

	$this->delocalise();
	
	my $class = typeof($this);
	
    delete $args->{CONFIG};
    
    return $class->new($args);
}

1;