Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/ResourceBase.pm @ 394:2c14f66efa08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author cin
date Tue, 18 Feb 2014 18:17:20 +0400
parents 2287c72f303a
children
comparison
equal deleted inserted replaced
393:69a1f1508696 394:2c14f66efa08
34 34
35 die ArgumentException->new(request => 'A request object must be specified') 35 die ArgumentException->new(request => 'A request object must be specified')
36 unless $args{request}; 36 unless $args{request};
37 37
38 $this->request( $args{request} ); 38 $this->request( $args{request} );
39 $this->parent( $args{parent} ); 39 $this->parent( $args{parent} ) if $args{parent};
40 $this->model( $args{model} ); 40 $this->model( $args{model} ) if $args{model};
41 $this->id( $args{id} ); 41 $this->id( $args{id} ) if $args{id};
42 $this->application( $args{request}->application ); 42 $this->application( $args{request}->application );
43 43
44 # если расположение явно не указано, то оно вычисляется автоматически, 44 # если расположение явно не указано, то оно вычисляется автоматически,
45 # либо остается не заданным 45 # либо остается не заданным
46 $this->location( $args{location} 46 $this->location( $args{location}
85 85
86 sub security { 86 sub security {
87 shift->request->security 87 shift->request->security
88 } 88 }
89 89
90 sub context {
91 shift->request->context
92 }
93
90 sub verbs { 94 sub verbs {
91 {} # возвращаем пстой список операций 95 {} # возвращаем пстой список операций
92 } 96 }
93 97
94 sub GetAllowedMethods { 98 sub GetAllowedMethods {