--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Const.pm	Fri Sep 04 19:40:23 2015 +0300
@@ -0,0 +1,58 @@
+package IMPL::Const;
+use strict;
+
+use parent qw(Exporter);
+
+our %EXPORT_TAGS = (
+    all => [
+        qw(
+          &ACCESS_PUBLIC
+          &ACCESS_PROTECTED
+          &ACCESS_PRIVATE
+          &PROP_GET
+          &PROP_SET
+          &PROP_OWNERSET
+          &PROP_LIST
+          &PROP_ALL
+          &PROP_DIRECT
+          )
+    ],
+    prop => [
+        qw(
+          &PROP_GET
+          &PROP_SET
+          &PROP_OWNERSET
+          &PROP_LIST
+          &PROP_ALL
+          &PROP_RO
+          &PROP_RW
+          &PROP_DIRECT
+          )
+    ],
+    access => [
+        qw(
+          &ACCESS_PUBLIC
+          &ACCESS_PROTECTED
+          &ACCESS_PRIVATE
+          )
+    ]
+    
+);
+
+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,
+    PROP_RW          => 3,
+    PROP_RO          => 11,
+    PROP_DIRECT      => 16
+};
+
+1;
\ No newline at end of file