Mercurial > pub > Impl

comparison Lib/IMPL/Web/Handler/RestController.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 6d8092d8ce1b
children a02b110da931
comparison
equal deleted inserted replaced
232:5c82eec23bb6 233:3cebcf6fdb9b
1 package IMPL::Web::Handler::RestController; 1 package IMPL::Web::Handler::RestController;
2 use strict; 2 use strict;
3 3
4 use IMPL::lang qw(:declare :constants); 4 use IMPL::Const qw(:prop);
5 use IMPL::declare { 5 use IMPL::declare {
6 require => { 6 require => {
7 ResourceInterface => 'IMPL::Web::Application::ResourceInterface', 7 ResourceInterface => 'IMPL::Web::Application::ResourceInterface',
8 Exception => 'IMPL::Exception', 8 Exception => 'IMPL::Exception',
9 ArgumentExecption => '-IMPL::InvalidArgumentException', 9 ArgumentExecption => '-IMPL::InvalidArgumentException',
13 'IMPL::Object' => undef, 13 'IMPL::Object' => undef,
14 'IMPL::Object::Autofill' => '@_', 14 'IMPL::Object::Autofill' => '@_',
15 'IMPL::Object::Serializable' => undef 15 'IMPL::Object::Serializable' => undef
16 }, 16 },
17 props => [ 17 props => [
18 rootResource => PROP_GET | PROP_OWNERSET, 18 rootResource => PROP_RO,
19 trailingSlash => PROP_GET | PROP_OWNERSET 19 trailingSlash => PROP_RO
20 ] 20 ]
21 }; 21 };
22 22
23 sub CTOR { 23 sub CTOR {
24 my ($this) = @_; 24 my ($this) = @_;