package IMPL::Web::TDocument;+
−
use strict;+
−
use warnings;+
−
+
−
use base qw(IMPL::DOM::Document IMPL::Object::Disposable);+
−
use Template::Context;+
−
use Template::Provider;+
−
use IMPL::Class::Property;+
−
use File::Spec;+
−
+
−
BEGIN {+
−
    private property _Provider => prop_all;+
−
    private property _Context => prop_all;+
−
    public property Template => prop_get | owner_set;+
−
}+
−
+
−
our %CTOR = (+
−
    'IMPL::DOM::Document' => sub { nodeName => 'document' }+
−
);+
−
+
−
sub Provider {+
−
    my ($this,%args) = @_;+
−
    +
−
    if (my $provider = $this->_Provider) {+
−
        return $provider;+
−
    } else {+
−
        return $this->_Provider(new Template::Provider(+
−
            \%args+
−
        ));+
−
    }+
−
}+
−
+
−
sub Context {+
−
    my ($this) = @_;+
−
    +
−
    if (my $ctx = $this->_Context) {+
−
        return $ctx;+
−
    } else {+
−
        return $this->_Context (+
−
            new Template::Context(+
−
                VARIABLES => {+
−
                    document => $this+
−
                },+
−
                TRIM => 1,+
−
                RECURSION => 1,+
−
                LOAD_TEMPLATES => [$this->Provider]+
−
            )+
−
        )+
−
    }+
−
}+
−
+
−
sub loadFile {+
−
    my ($this,$filePath,$encoding) = @_;+
−
    +
−
    die new IMPL::InvalidArgumentException("A filePath parameter is required") unless $filePath;+
−
    +
−
    $encoding ||= 'utf8';+
−
    +
−
    $this->_Context(undef);+
−
    $this->_Provider(undef);+
−
    +
−
    my ($vol,$dir,$fileName) = File::Spec->splitpath($filePath);+
−
    +
−
    my $inc = File::Spec->catpath($vol,$dir,'');+
−
    +
−
    $this->Provider(+
−
        ENCODING => $encoding,+
−
        INTERPOLATE => 1,+
−
        PRE_CHOMP => 1,+
−
        POST_CHOMP => 1,+
−
        INCLUDE_PATH => $inc+
−
    );+
−
    +
−
    $this->Template($this->Context->template($fileName));+
−
}+
−
+
−
sub Title {+
−
    $_[0]->Template->Title;+
−
}+
−
+
−
sub Render {+
−
    my ($this) = @_;+
−
    +
−
    return $this->Template->process($this->Context);+
−
}+
−
+
−
sub Dispose {+
−
    my ($this) = @_;+
−
    +
−
    $this->Template(undef);+
−
    $this->_Context(undef);+
−
    $this->_Provider(undef);+
−
    +
−
    $this->SUPER::Dispose();+
−
}+
−
+
−
1;+
−
__END__+
−
=pod+
−
+
−
=head1 SYNOPSIS+
−
+
−
=begin code +
−
+
−
// create new document+
−
my $doc = new IMPL::Web::TDocument;+
−
+
−
// load template+
−
$doc->loadFile('Templates/index.tt');+
−
+
−
// render file+
−
print $doc->Render();+
−
+
−
=end code+
−
+
−
=head1 DESCRIPTION+
−
+
−
��������, ���������� �� ������� Template::Toolkit. ��������� ��������� ������,+
−
� ������������ ������������� ��������. �������� ����������� C<IMPL::DOM::Node>,+
−
�.�. ����� ���� ����������� ��� ���������� DOM ������.+
−
+
−
������ ������� ���������� C<document> ��������� �� ������ ���������. �� ����+
−
������� ���������� ����������� ������ ����� ��������� ������� � ����������, ���+
−
������� ������ ������ C<Dispose> ��� ������������ ���������.+
−
+
−
=head1 METHODS+
−
+
−
=level 4+
−
+
−
=item C<new()>+
−
+
−
������� ����� ��������� ���������+
−
+
−
=item C<$doc->loadFile($fileName,$encoding)>+
−
+
−
��������� ������ �� ����� C<$fileName>, ��������� ��������� C<$encoding>. ����+
−
��������� �� �������, ���������� utf-8.+
−
+
−
=item C<$doc->Render()>+
−
+
−
���������� ������ ����������� �� ������ ������������ �������.+
−
+
−
=item C<$doc->Dispose()>+
−
+
−
����������� ������� � �������� ������ ��� �������������.+
−
+
−
=back+
−
+
−
=head1 DOM+
−
+
−
=begin text+
−
+
−
[% table = document.tables.Add('env') %]+
−
+
−
[% FOEACH item in document.result %]+
−
	[% table.rows.Add( item.get('name','value') ) %]+
−
[% END %]+
−
+
−
[% form = document.forms.Add('login') %]+
−
+
−
[% form.loadValues( {user => 'guest', password => ''} ) %]+
−
+
−
[% form.template = BLOCK %]+
−
	[% %]+
−
	[% END %]+
−
[% END %]+
−
	+
−
+
−
=end text+
−
+
−
+
−
=cut+
−