pub/Impl: Lib/IMPL/Web/Application/Action.pm annotate

annotate Lib/IMPL/Web/Application/Action.pm @ 340:c090d9102a38

web application security refactoring

author	cin
date	Fri, 21 Jun 2013 02:43:56 +0400
parents	97628101b765
children	ec58c47edb52

rev	line source
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	1 package IMPL::Web::Application::Action;
55 609b59c9f03c Web application wizard parents: 52 diff changeset	2 use strict;
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	3
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 194 diff changeset	4 use Carp qw(carp);
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	5 use URI;
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	6 use JSON;
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	7
339 97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	8 use IMPL::lang;
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	9 use IMPL::Const qw(:prop);
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	10 use IMPL::Web::CGIWrapper();
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	11 use IMPL::declare {
339 97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	12 require => {
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	13 Disposable => '-IMPL::Object::Disposable'
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	14 },
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	15 base => [
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	16 'IMPL::Object' => undef,
339 97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	17 'IMPL::Object::Autofill' => '@_',
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	18 'IMPL::Object::Disposable' => undef
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	19 ],
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	20 props => [
324 b1e7b55b4a38 reverted previous changes cin parents: 323 diff changeset	21 application => PROP_RW,
340 c090d9102a38 web application security refactoring cin parents: 339 diff changeset	22 security => PROP_RW,
244 a02b110da931 refactoring sergey parents: 238 diff changeset	23 query => PROP_RO,
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	24 context => PROP_RW,
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	25 _jsonData => PROP_RW,
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	26 ]
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	27 };
55 609b59c9f03c Web application wizard parents: 52 diff changeset	28
65 2840c4c85db8 Application configuration improvements wizard parents: 63 diff changeset	29 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	30 my ($this) = @_;
244 a02b110da931 refactoring sergey parents: 238 diff changeset	31
a02b110da931 refactoring sergey parents: 238 diff changeset	32 $this->context({});
340 c090d9102a38 web application security refactoring cin parents: 339 diff changeset	33 $this->security($this->application->security->new())
c090d9102a38 web application security refactoring cin parents: 339 diff changeset	34 if $this->application->security;
65 2840c4c85db8 Application configuration improvements wizard parents: 63 diff changeset	35 }
63 76b878ad6596 Added serialization support for the IMPL::Object::List wizard parents: 62 diff changeset	36
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	37 sub cookie {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	38 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	39
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	40 $this->_launder(scalar( $this->query->cookie($name) ), $rx );
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	41 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	42
320 28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	43 sub header {
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	44 my ($this,$header) = @_;
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	45
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	46 $this->query->https ? $this->query->https($header) : $this->query->http($header);
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	47 }
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	48
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	49 sub isSecure {
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	50 shift->query->https ? 1 : 0;
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	51 }
28eba7e0c592 web application action: added method to access HTTP request header. sergey* parents: 268 diff changeset	52
323 b56b1ec33b59 minor changes to support JSON in transformation from a query to an object sergey parents: 322 diff changeset	53 sub isJson {
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object sergey parents: 322 diff changeset	54 return shift->contentType =~ m{^application/json} ? 1 : 0;
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object sergey parents: 322 diff changeset	55 }
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object sergey parents: 322 diff changeset	56
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	57 sub param {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	58 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	59
245 7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	60 my $value;
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	61
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	62 if (
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	63 $this->requestMethod eq 'GET'
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	64 or
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	65 $this->contentType eq 'multipart/form-data'
245 7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	66 or
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	67 $this->contentType eq 'application/x-www-form-urlencoded'
245 7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	68 ) {
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	69 $value = scalar( $this->query->param($name) );
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	70 } else {
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	71 $value = scalar( $this->query->url_param($name) );
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	72 }
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	73
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	74 $this->_launder($value, $rx );
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	75 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	76
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	77 sub urlParam {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	78 my ($this,$name,$rx) = @_;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	79
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	80 $this->_launder(scalar( $this->query->url_param($name) ), $rx);
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	81 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	82
322 cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	83 sub urlParams {
cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	84 shift->query->url_param();
cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	85 }
cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	86
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	87 sub rawData {
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	88 my ($this, $decode) = @_;
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	89
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	90 local $IMPL::Web::CGIWrapper::NO_DECODE = $decode ? 0 : 1;
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	91 if ($this->requestMethod eq 'POST') {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	92 return $this->query->param('POSTDATA');
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	93 } elsif($this->requestMethod eq 'PUT') {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	94 return $this->query->param('PUTDATA');
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	95 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	96 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	97
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	98 sub jsonData {
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	99 my ($this) = @_;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	100
323 b56b1ec33b59 minor changes to support JSON in transformation from a query to an object sergey parents: 322 diff changeset	101 if ($this->isJson ) {
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	102 my $data = $this->_jsonData;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	103 unless($data) {
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	104 $data = JSON->new()->decode($this->rawData('decode encoding'));
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	105 $this->_jsonData($data);
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	106 }
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	107
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	108 return $data;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	109 }
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	110
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	111 return;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	112 }
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	113
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	114 sub requestMethod {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	115 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	116 return $this->query->request_method;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	117 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	118
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	119 sub contentType {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	120 return shift->query->content_type();
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	121 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	122
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	123 sub pathInfo {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	124 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	125 return $this->query->path_info;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	126 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	127
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	128 sub baseUrl {
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	129 my ($this) = @_;
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	130
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	131 return $this->query->url(-base => 1);
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	132 }
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	133
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	134 sub applicationUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	135 shift->application->baseUrl;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	136 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	137
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	138 sub applicationFullUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	139 my ($this) = @_;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	140
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	141 return URI->new_abs($this->application->baseUrl, $this->query->url(-base => 1));
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	142 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	143
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 266 diff changeset	144 # creates an url that contains server, schema and path parts
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	145 sub CreateFullUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	146 my ($this,$path) = @_;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	147
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 266 diff changeset	148 return $path ? URI->new_abs($path,$this->applicationFullUrl) : $this->applicationFullUrl;
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	149 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	150
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 266 diff changeset	151 # creates an url that contains only a path part
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	152 sub CreateAbsoluteUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	153 my ($this,$path) = @_;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	154
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 266 diff changeset	155 return $path ? URI->new_abs($path,$this->applicationUrl) : $this->applicationUrl;
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	156 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	157
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	158 sub _launder {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	159 my ($this,$value,$rx) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	160
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	161 if ( $value ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	162 if ($rx) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	163 if ( my @result = ($value =~ m/$rx/) ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	164 return @result > 1 ? \@result : $result[0];
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	165 } else {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	166 return;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	167 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	168 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	169 return $value;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	170 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	171 } else {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	172 return;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	173 }
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	174 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	175
339 97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	176 sub Dispose {
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	177 my ($this) = @_;
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	178
340 c090d9102a38 web application security refactoring cin parents: 339 diff changeset	179 $this->security->Dispose()
c090d9102a38 web application security refactoring cin parents: 339 diff changeset	180 if $this->security and $this->security->can('Dispose');
c090d9102a38 web application security refactoring cin parents: 339 diff changeset	181
339 97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	182 $_->Dispose() foreach grep is($_,Disposable), values %{$this->context};
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	183
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	184 $this->next::method();
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	185 }
97628101b765 refactoring: application now holds a security object factory rather than a security object cin parents: 324 diff changeset	186
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	187 1;
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	188
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	189 __END__
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	190
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	191 =pod
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	192
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	193 =head1 NAME
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	194
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	195 C<IMPL::Web::Application::Action> - Обертка вокруг C<CGI> запроса.
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	196
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	197 =head1 DESCRIPTION
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	198
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	199 C<[Infrastructure]>
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 194 diff changeset	200 Свзяывет CGI запрос, приложение, орабатывающее его и ответ, который будет отправлен клиенту.
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	201
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	202 =head1 MEMBERS
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	203
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	204 =head2 C<CTOR(%args)>
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	205
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	206 Инициализирует новый экземпляр. Именованными параметрами передаются значения
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	207 свойств.
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	208
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	209 =head2 C< [get]application>
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	210
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	211 Экземпляр приложения создавшего текущий объект
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	212
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	213 =item C< [get] query >
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	214
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	215 Экземпляр C<CGI> запроса
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	216
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	217 =back
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	218
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	219
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	220 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/Action.pm @ 340:c090d9102a38