Mercurial > pub > Impl

annotate Lib/IMPL/Const.pm @ 245:7c517134c42f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Unsupported media type Web exception corrected resourceLocation setting in the resource Implemented localizable resources for text messages fixed TT view scopings, INIT block in controls now sets globals correctly.
author sergey
date Mon, 29 Oct 2012 03:15:22 +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;