Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/ControllerUnit.pm @ 144:b56ebc31bf18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Empty nodes no more created while transforming a post request to the DOM document minor speed improvements to the object CTOR caching Added support for a secure processing (and 'laundering' ) a CGI parameters Many minor fixes
author wizard
date Tue, 13 Jul 2010 02:05:38 +0400
parents 4c9849f0f879
children 60fd224f3e3c
comparison
equal deleted inserted replaced
143:d9dd3500ead3 144:b56ebc31bf18
18 18
19 BEGIN { 19 BEGIN {
20 public property action => prop_get | owner_set; 20 public property action => prop_get | owner_set;
21 public property application => prop_get | owner_set; 21 public property application => prop_get | owner_set;
22 public property query => prop_get | owner_set; 22 public property query => prop_get | owner_set;
23 public property response => prop_get | owner_set;
23 public property formData => prop_get | owner_set; 24 public property formData => prop_get | owner_set;
24 public property formSchema => prop_get | owner_set; 25 public property formSchema => prop_get | owner_set;
25 public property formErrors => prop_get | owner_set; 26 public property formErrors => prop_get | owner_set;
26 } 27 }
27 28
33 my ($this,$action,$args) = @_; 34 my ($this,$action,$args) = @_;
34 35
35 $this->action($action); 36 $this->action($action);
36 $this->application($action->application); 37 $this->application($action->application);
37 $this->query($action->query); 38 $this->query($action->query);
39 $this->response($action->response);
38 40
39 $this->$_($args->{$_}) foreach qw(formData formSchema formErrors); 41 $this->$_($args->{$_}) foreach qw(formData formSchema formErrors);
40 } 42 }
41 43
42 sub unitNamespace() { 44 sub unitNamespace() {
109 my ($this,$param) = @_; 111 my ($this,$param) = @_;
110 112
111 if ( $param =~ /^::(\w+)$/ and $publicProps{$1}) { 113 if ( $param =~ /^::(\w+)$/ and $publicProps{$1}) {
112 return $this->$1(); 114 return $this->$1();
113 } else { 115 } else {
114 return $this->query->param($param); 116 return scalar($this->query->param($param));
115 } 117 }
116 } 118 }
117 119
118 sub TransactionWrapper { 120 sub TransactionWrapper {
119 my ($self,$method,$action,$methodInfo) = @_; 121 my ($self,$method,$action,$methodInfo) = @_;