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