Mercurial > pub > Impl

comparison Lib/IMPL/Web/Handler/ViewSelector.pm @ 233:3cebcf6fdb9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring, cleaning code
author sergey
date Thu, 11 Oct 2012 04:53:08 +0400
parents 47f77e6409f7
children
comparison
equal deleted inserted replaced
232:5c82eec23bb6 233:3cebcf6fdb9b
1 package IMPL::Web::Handler::ViewSelector; 1 package IMPL::Web::Handler::ViewSelector;
2 use strict; 2 use strict;
3 3
4 use IMPL::lang qw(:declare :constants); 4 use IMPL::Const qw(:prop);
5 5
6 use IMPL::declare { 6 use IMPL::declare {
7 require => { 7 require => {
8 NotAcceptable => 'IMPL::Web::NotAcceptableException', 8 NotAcceptable => 'IMPL::Web::NotAcceptableException',
9 HttpResponse => 'IMPL::Web::HttpResponse' 9 HttpResponse => 'IMPL::Web::HttpResponse'
12 'IMPL::Object' => undef, 12 'IMPL::Object' => undef,
13 'IMPL::Object::Autofill' => '@_', 13 'IMPL::Object::Autofill' => '@_',
14 'IMPL::Object::Serializable' => undef 14 'IMPL::Object::Serializable' => undef
15 ], 15 ],
16 props => [ 16 props => [
17 views => PROP_ALL | PROP_LIST, 17 views => PROP_RW | PROP_LIST,
18 fallback => PROP_ALL, 18 fallback => PROP_RW,
19 types => PROP_ALL 19 types => PROP_RW
20 ] 20 ]
21 }; 21 };
22 22
23 sub Invoke { 23 sub Invoke {
24 my ( $this, $action, $next ) = @_; 24 my ( $this, $action, $next ) = @_;