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

annotate Lib/IMPL/Web/Application/Action.pm @ 339:97628101b765

refactoring: application now holds a security object factory rather than a security object

author	cin
date	Wed, 19 Jun 2013 03:25:44 +0400
parents	b1e7b55b4a38
children	c090d9102a38

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

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/Action.pm @ 339:97628101b765