Mercurial > pub > Impl
comparison Lib/IMPL/Web/TDocument.pm @ 6:e2cd73ccc5bd
DOM In development
| author | Sergey |
|---|---|
| date | Fri, 14 Aug 2009 16:14:13 +0400 |
| parents | |
| children | 94d47b388442 |
comparison
equal
deleted
inserted
replaced
| 5:efa7db58abae | 6:e2cd73ccc5bd |
|---|---|
| 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; |
