Mercurial > pub > Impl

comparison Lib/IMPL/Const.pm @ 230:6d8092d8ce1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
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 )
18 ],
19 prop => [
20 qw(
21 &PROP_GET
22 &PROP_SET
23 &PROP_OWNERSET
24 &PROP_LIST
25 &PROP_ALL
26 &PROP_RO
27 &PROP_RW
28 )
29 ],
30 access => [
31 qw(
32 &ACCESS_PUBLIC
33 &ACCESS_PROTECTED
34 &ACCESS_PRIVATE
35 )
36 ]
37
38 );
39
40 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
41
42 use constant {
43 ACCESS_PUBLIC => 1,
44 ACCESS_PROTECTED => 2,
45 ACCESS_PRIVATE => 3,
46 PROP_GET => 1,
47 PROP_SET => 2,
48 PROP_OWNERSET => 10,
49 PROP_LIST => 4,
50 PROP_ALL => 3,
51 PROP_RW => 3,
52 PROP_RO => 11
53 };
54
55 1;