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

Fixed degradations due refactoring
author sergey
date Tue, 09 Oct 2012 20:12:47 +0400
parents 47f77e6409f7
children a02b110da931
line wrap: on
line diff
--- a/Lib/IMPL/Web/AutoLocator.pm	Tue Oct 09 03:09:41 2012 +0400
+++ b/Lib/IMPL/Web/AutoLocator.pm	Tue Oct 09 20:12:47 2012 +0400
@@ -1,7 +1,8 @@
 package IMPL::Web::AutoLocator;
 use strict;
 
-use IMPL::lang qw(:constants :hash);
+use IMPL::Const qw(:prop);
+use IMPL::lang qw( :hash );
 use URI;
 use URI::Escape;
 use IMPL::declare {
@@ -15,10 +16,10 @@
         'IMPL::Object::Serializable' => '@_'
 	],
 	props => [
-	   base => PROP_GET | PROP_OWNERSET,
-	   view => PROP_ALL,
-	   query => PROP_ALL,
-	   hash => PROP_ALL
+	   base => PROP_RO,
+	   view => PROP_RW,
+	   query => PROP_RW,
+	   hash => PROP_RW
 	]
 };