Mercurial > pub > Impl

annotate lib/IMPL/Const.pm @ 410:9335cf010b23 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring
author cin
date Mon, 14 Sep 2015 01:11:53 +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;