Mercurial > pub > Impl

annotate Lib/IMPL/Const.pm @ 393:69a1f1508696

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor security refactoring
author cin
date Fri, 14 Feb 2014 16:41:12 +0400
parents 4ddb27ff4a0b
children
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
278
4ddb27ff4a0b core refactoring
cin
parents: 230
diff changeset
17 &PROP_DIRECT
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
18 )
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
19 ],
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
20 prop => [
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
21 qw(
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
22 &PROP_GET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
23 &PROP_SET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
24 &PROP_OWNERSET
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
25 &PROP_LIST
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
26 &PROP_ALL
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
27 &PROP_RO
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
28 &PROP_RW
278
4ddb27ff4a0b core refactoring
cin
parents: 230
diff changeset
29 &PROP_DIRECT
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
30 )
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
31 ],
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
32 access => [
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
33 qw(
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
34 &ACCESS_PUBLIC
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
35 &ACCESS_PROTECTED
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
36 &ACCESS_PRIVATE
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 );
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
41
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
42 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
43
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
44 use constant {
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
45 ACCESS_PUBLIC => 1,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
46 ACCESS_PROTECTED => 2,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
47 ACCESS_PRIVATE => 3,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
48 PROP_GET => 1,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
49 PROP_SET => 2,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
50 PROP_OWNERSET => 10,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
51 PROP_LIST => 4,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
52 PROP_ALL => 3,
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
53 PROP_RW => 3,
278
4ddb27ff4a0b core refactoring
cin
parents: 230
diff changeset
54 PROP_RO => 11,
4ddb27ff4a0b core refactoring
cin
parents: 230
diff changeset
55 PROP_DIRECT => 16
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
56 };
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
57
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
58 1;