Mercurial > pub > Impl

diff Lib/IMPL/lang.pm @ 230:6d8092d8ce1b
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author: sergey
date: Mon, 08 Oct 2012 03:37:37 +0400
parents: d6e2ea24af08
children: f48a1a9f4fa2
--- a/Lib/IMPL/lang.pm	Sat Sep 29 02:34:47 2012 +0400
+++ b/Lib/IMPL/lang.pm	Mon Oct 08 03:37:37 2012 +0400
@@ -16,18 +16,6 @@
           &clone
           )
     ],
-    constants => [
-        qw(
-          &ACCESS_PUBLIC
-          &ACCESS_PROTECTED
-          &ACCESS_PRIVATE
-          &PROP_GET
-          &PROP_SET
-          &PROP_OWNERSET
-          &PROP_LIST
-          &PROP_ALL
-          )
-    ],
 
     declare => [
         qw(
@@ -46,6 +34,8 @@
           &PROP_OWNERSET
           &PROP_LIST
           &PROP_ALL
+          &PROP_RO
+          &PROP_RW
           )
     ],
     compare => [
@@ -69,16 +59,7 @@
 
 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
 
-use constant {
-    ACCESS_PUBLIC    => 1,
-    ACCESS_PROTECTED => 2,
-    ACCESS_PRIVATE   => 3,
-    PROP_GET         => 1,
-    PROP_SET         => 2,
-    PROP_OWNERSET    => 10,
-    PROP_LIST        => 4,
-    PROP_ALL         => 3
-};
+use IMPL::Const qw(:all);
 
 sub is($$) {
     eval { $_[0]->isa( $_[1] ) };