Mercurial > pub > Impl
comparison Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 134:44977efed303
Significant performance optimizations
Fixed recursion problems due converting objects to JSON
Added cache support for the templates
Added discovery feature for the web methods
author | wizard |
---|---|
date | Mon, 21 Jun 2010 02:39:53 +0400 |
parents | e4f15cbc3f1a |
children | f6af119ac741 |
comparison
equal
deleted
inserted
replaced
133:a07a66fd8d5c | 134:44977efed303 |
---|---|
12 BEGIN { | 12 BEGIN { |
13 public property templatesCharset => prop_all; | 13 public property templatesCharset => prop_all; |
14 public property templatesBase => prop_all; | 14 public property templatesBase => prop_all; |
15 public property defaultTarget => prop_all; | 15 public property defaultTarget => prop_all; |
16 public property pathinfoPrefix => prop_all; | 16 public property pathinfoPrefix => prop_all; |
17 public property cache => prop_all; | |
17 } | 18 } |
18 | 19 |
19 sub CTOR { | 20 sub CTOR { |
20 my ($this) = @_; | 21 my ($this) = @_; |
21 | 22 |
22 $this->templatesCharset('utf-8') unless $this->templatesCharset; | 23 $this->templatesCharset('utf-8') unless $this->templatesCharset; |
24 $this->cache(File::Spec->rel2abs($this->cache)) if $this->cache; | |
25 $this->templatesBase(File::Spec->rel2abs($this->templatesBase)) if $this->templatesBase; | |
23 } | 26 } |
24 | 27 |
25 sub Process { | 28 sub Process { |
26 my ($this,$action,$nextHandler) = @_; | 29 my ($this,$action,$nextHandler) = @_; |
27 | 30 |
28 my $doc = new IMPL::Web::TT::Document(); | 31 my $doc = new IMPL::Web::TT::Document(cache => $this->cache); |
29 | 32 |
30 try { | 33 try { |
31 | 34 |
32 $this->templatesBase($ENV{DOCUMENT_ROOT}) unless $this->templatesBase; | 35 $this->templatesBase($ENV{DOCUMENT_ROOT}) unless $this->templatesBase; |
33 | 36 |