Mercurial > pub > Impl

comparison lib/IMPL/Const.pm @ 407:c6e90e02dd17 ref20150831

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