Mercurial > pub > Impl

annotate lib/IMPL/Const.pm @ 412:30e8c6a74937 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on di container (role based registrations)
author cin
date Mon, 21 Sep 2015 19:54:10 +0300
parents c6e90e02dd17
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
407
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
1 package IMPL::Const;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
2 use strict;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
3
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
4 use parent qw(Exporter);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
5
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
6 our %EXPORT_TAGS = (
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
7 all => [
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
8 qw(
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
9 &ACCESS_PUBLIC
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
10 &ACCESS_PROTECTED
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
11 &ACCESS_PRIVATE
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
12 &PROP_GET
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
13 &PROP_SET
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
14 &PROP_OWNERSET
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
15 &PROP_LIST
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
16 &PROP_ALL
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
17 &PROP_DIRECT
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
18 )
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
19 ],
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
20 prop => [
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
21 qw(
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
22 &PROP_GET
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
23 &PROP_SET
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
24 &PROP_OWNERSET
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
25 &PROP_LIST
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
26 &PROP_ALL
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
27 &PROP_RO
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
28 &PROP_RW
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
29 &PROP_DIRECT
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
30 )
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
31 ],
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
32 access => [
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
33 qw(
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
34 &ACCESS_PUBLIC
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
35 &ACCESS_PROTECTED
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
36 &ACCESS_PRIVATE
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
37 )
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
38 ]
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
39
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
40 );
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
41
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
42 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
43
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
44 use constant {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
45 ACCESS_PUBLIC => 1,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
46 ACCESS_PROTECTED => 2,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
47 ACCESS_PRIVATE => 3,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
48 PROP_GET => 1,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
49 PROP_SET => 2,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
50 PROP_OWNERSET => 10,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
51 PROP_LIST => 4,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
52 PROP_ALL => 3,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
53 PROP_RW => 3,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
54 PROP_RO => 11,
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
55 PROP_DIRECT => 16
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
56 };
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
57
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
58 1;