Mercurial > pub > Impl

annotate Lib/IMPL/Const.pm @ 260:2879cdb6b8cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Tue, 25 Dec 2012 02:18:59 +0400
parents 6d8092d8ce1b
children 4ddb27ff4a0b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
1 package IMPL::Const;
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
2 use strict;
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
3
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
4 use parent qw(Exporter);
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
5
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
6 our %EXPORT_TAGS = (
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
7 all => [
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
8 qw(
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
9 &ACCESS_PUBLIC
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
10 &ACCESS_PROTECTED
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
11 &ACCESS_PRIVATE
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
12 &PROP_GET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
13 &PROP_SET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
14 &PROP_OWNERSET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
15 &PROP_LIST
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
16 &PROP_ALL
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
17 )
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
18 ],
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
19 prop => [
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
20 qw(
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
21 &PROP_GET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
22 &PROP_SET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
23 &PROP_OWNERSET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
24 &PROP_LIST
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
25 &PROP_ALL
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
26 &PROP_RO
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
27 &PROP_RW
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
28 )
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
29 ],
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
30 access => [
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
31 qw(
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
32 &ACCESS_PUBLIC
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
33 &ACCESS_PROTECTED
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
34 &ACCESS_PRIVATE
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
35 )
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
36 ]
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
37
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
38 );
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
39
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
40 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
41
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
42 use constant {
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
43 ACCESS_PUBLIC => 1,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
44 ACCESS_PROTECTED => 2,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
45 ACCESS_PRIVATE => 3,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
46 PROP_GET => 1,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
47 PROP_SET => 2,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
48 PROP_OWNERSET => 10,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
49 PROP_LIST => 4,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
50 PROP_ALL => 3,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
51 PROP_RW => 3,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
52 PROP_RO => 11
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
53 };
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
54
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
55 1;