|
6
|
1 package IMPL::Web::TDocument;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::DOM::Node);
|
|
|
6 use Template::Context;
|
|
|
7 use Template::Provider;
|
|
|
8 use IMPL::Class::Property;
|
|
|
9 use File::Spec;
|
|
|
10
|
|
|
11 BEGIN {
|
|
|
12 public property Templates => prop_get | owner_set;
|
|
|
13 public property Context => prop_get | owner_set;
|
|
|
14 }
|
|
|
15
|
|
|
16 our %CTOR = (
|
|
|
17 'IMPL::DOM::Node' => sub { nodeName => 'document' }
|
|
|
18 );
|
|
|
19
|
|
|
20 sub load {
|
|
|
21 my ($this,$file) = @_;
|
|
|
22
|
|
|
23 $file = File::Spec->rel2abs($file);
|
|
|
24
|
|
|
25 }
|
|
|
26
|
|
|
27 1;
|
