Mercurial > pub > Impl
comparison Lib/IMPL/Transform.pm @ 199:e743a8481327
Added REST support for forms (with only get and post methods)
author | sergey |
---|---|
date | Mon, 23 Apr 2012 01:36:52 +0400 |
parents | 2ffe6f661605 |
children | 292226770180 |
comparison
equal
deleted
inserted
replaced
198:2ffe6f661605 | 199:e743a8481327 |
---|---|
33 return $this->$template($object,@args); | 33 return $this->$template($object,@args); |
34 } else { | 34 } else { |
35 | 35 |
36 my $template = $this->MatchTemplate($object) || $this->default or die new IMPL::Transform::NoTransformException(ref $object); | 36 my $template = $this->MatchTemplate($object) || $this->default or die new IMPL::Transform::NoTransformException(ref $object); |
37 | 37 |
38 return $this->ProcessTemplate($template,$object,\@args); | 38 return $this->ProcessTemplate($template,$object,@args); |
39 } | 39 } |
40 } | 40 } |
41 | 41 |
42 sub MatchTemplate { | 42 sub MatchTemplate { |
43 my ($this,$object) = @_; | 43 my ($this,$object) = @_; |
68 }; | 68 }; |
69 } | 69 } |
70 } | 70 } |
71 | 71 |
72 sub ProcessTemplate { | 72 sub ProcessTemplate { |
73 my ($this,$t,$obj,$args) = @_; | 73 my ($this,$t,$obj,@args) = @_; |
74 | 74 |
75 return $this->$t($obj,@$args); | 75 return $this->$t($obj,@args); |
76 } | 76 } |
77 | 77 |
78 sub GetClassForObject { | 78 sub GetClassForObject { |
79 my ($this,$object) = @_; | 79 my ($this,$object) = @_; |
80 | 80 |