Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/Resource.pm @ 244:a02b110da931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring fixed binding to CGI query parameters with multiple values
author sergey
date Mon, 22 Oct 2012 04:09:27 +0400
parents 6d8092d8ce1b
children 7c517134c42f
comparison
equal deleted inserted replaced
243:cd2b1f121029 244:a02b110da931
2 use strict; 2 use strict;
3 3
4 use IMPL::Const qw(:prop); 4 use IMPL::Const qw(:prop);
5 use IMPL::declare { 5 use IMPL::declare {
6 require => { 6 require => {
7 ViewResult => 'IMPL::Web::ViewResult',
7 Exception => 'IMPL::Exception', 8 Exception => 'IMPL::Exception',
8 ArgumentException => '-IMPL::InvalidArgumentException', 9 ArgumentException => '-IMPL::InvalidArgumentException',
9 OperationException => '-IMPL::InvalidOperationException', 10 OperationException => '-IMPL::InvalidOperationException',
10 NotAllowedException => 'IMPL::Web::NotAllowedException', 11 NotAllowedException => 'IMPL::Web::NotAllowedException',
11 NotFoundException => 'IMPL::Web::NotFoundException' 12 NotFoundException => 'IMPL::Web::NotFoundException'
48 49
49 die NotAllowedException->new( 50 die NotAllowedException->new(
50 allow => join( ',', map( uc, keys %{ $this->contract->verbs } ) ) 51 allow => join( ',', map( uc, keys %{ $this->contract->verbs } ) )
51 ) 52 )
52 unless $operation; 53 unless $operation;
54
55 $action->context->{resourceLocation} = $this->location;
53 56
54 return $operation->Invoke( $this, $action ); 57 return $operation->Invoke( $this, $action );
55 } 58 }
56 59
57 # это реализация по умолчанию, базируется информации о ресурсах, содержащийся 60 # это реализация по умолчанию, базируется информации о ресурсах, содержащийся