--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Web/View/TTLoader.pm	Thu Jan 26 01:15:57 2012 +0400
@@ -0,0 +1,136 @@
+package IMPL::Web::View::TTLoader;
+use strict;
+
+use IMPL::lang qw(:declare :constants);
+
+use Template::Provider();
+use Template::Context();
+use Template::Constants qw(:status);
+
+use IMPL::Web::View::TTDocument();
+
+use parent qw(
+	IMPL::Object
+);
+
+BEGIN {
+	public property options => PROP_ALL;
+	public property provider => PROP_GET | PROP_OWNERSET;
+	public property context => PROP_GET | PROP_OWNERSET;
+	public property ext => PROP_ALL;
+	
+	public property isInitialized => PROP_GET | PROP_OWNERSET;
+	public property initializer => PROP_GET | PROP_OWNERSET;
+}
+
+sub CTOR {
+	my ($this,$refOpts,%args) = @_;
+	
+	$this->ext(delete $args{etx});
+	$this->initializer(delete $args{initializer});
+	
+	$this->options($refOpts);
+	
+	$refOpts->{LOAD_TEMPLATES} = $this->provider(new Template::Provider($refOpts));
+	
+	$this->context(new Template::Context($refOpts));
+}
+
+sub document {
+	my ($this,$name) = @_;
+	
+	my $tt = $this->template($name);
+		
+	$this->_init();
+	
+	my $opts = { $this->options };
+	
+	$opts->{STASH} = $this->context->stash->clone();
+	$opts->{LOAD_TEMPLATES} = $this->provider;
+	
+	return new IMPL::Web::View::TTDocument( $tt, $opts, loader => $this );
+}
+
+sub template {
+	my ($this,$name) = @_;
+	
+	$name =~ s/^\s+|\s+$//g;
+	
+	die new IMPL::ArgumentException("A valid template name is required") unless length $name;
+	
+	$name = $this->_appendExt($name);
+	
+	my ($tt,$error) = $this->provider->fetch($name);
+	
+	if ($error == STATUS_DECLINED) {
+		die new IMPL::KeyNotFoundException($name);
+	} elsif ($error == STATUS_ERROR) {
+		die new IMPL::Exception("Failed to load a template", $name, $tt);
+	}
+	
+	return $tt;
+}
+
+sub _appendExt {
+	my ($this,$name) = @_;
+	
+	
+	if (length $this->ext and substr( $name, -length($this->ext) ) eq $this->ext) {
+		return $name;
+	} else {
+		return $name . $this->ext;
+	}
+}
+
+sub _init {
+	my ($this) = @_;
+	
+	if (!$this->isInitialized) {
+		$this->isInitialized(1);
+		
+		if ($this->initializer) {
+			eval {
+				$this->context->process($this->initializer);
+			}
+		}
+	}
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+C<IMPL::Web::View::TTLoader> - предоставляет глобальный контекст для загрузки шаблонов
+
+=head1 SYNOPSIS
+
+=begin code
+
+use IMPL::Web::View::TTLoader();
+
+my $loader = new IMPL::Web::View::TTLoader(
+	{
+		INCLUDE_PATH => [
+			'/my/app/tt',
+			'/my/app/tt/lib'
+		]
+	},
+	ext => '.tt',
+	initializer => 'shared/global'
+		
+);
+
+my $doc = $loader->document('index');
+
+my $html = $doc->Render();
+
+=end code
+
+=head1 DESCRIPTION
+
+=cut
+