Mercurial > pub > Impl

comparison Lib/IMPL/Web/AutoLocator.pm @ 232:5c82eec23bb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed degradations due refactoring
author sergey
date Tue, 09 Oct 2012 20:12:47 +0400
parents 47f77e6409f7
children a02b110da931
comparison
equal deleted inserted replaced
231:ff1e8fa932f2 232:5c82eec23bb6
1 package IMPL::Web::AutoLocator; 1 package IMPL::Web::AutoLocator;
2 use strict; 2 use strict;
3 3
4 use IMPL::lang qw(:constants :hash); 4 use IMPL::Const qw(:prop);
5 use IMPL::lang qw( :hash );
5 use URI; 6 use URI;
6 use URI::Escape; 7 use URI::Escape;
7 use IMPL::declare { 8 use IMPL::declare {
8 require => { 9 require => {
9 Exception => 'IMPL::Exception', 10 Exception => 'IMPL::Exception',
13 'IMPL::Object' => undef, 14 'IMPL::Object' => undef,
14 'IMPL::Object::Autofill' => '@_', 15 'IMPL::Object::Autofill' => '@_',
15 'IMPL::Object::Serializable' => '@_' 16 'IMPL::Object::Serializable' => '@_'
16 ], 17 ],
17 props => [ 18 props => [
18 base => PROP_GET | PROP_OWNERSET, 19 base => PROP_RO,
19 view => PROP_ALL, 20 view => PROP_RW,
20 query => PROP_ALL, 21 query => PROP_RW,
21 hash => PROP_ALL 22 hash => PROP_RW
22 ] 23 ]
23 }; 24 };
24 25
25 sub Child { 26 sub Child {
26 my $this = shift; 27 my $this = shift;