Mercurial > pub > Impl

annotate Lib/IMPL/Const.pm @ 395:212cc86e470b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Code cleanup DateTime locale support for HTTP requests
author sergey
date Thu, 20 Feb 2014 01:33:03 +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;