Mercurial > pub > Impl

comparison Lib/IMPL/lang.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 d6e2ea24af08
children f48a1a9f4fa2
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
12 our %EXPORT_TAGS = ( 12 our %EXPORT_TAGS = (
13 base => [ 13 base => [
14 qw( 14 qw(
15 &is 15 &is
16 &clone 16 &clone
17 )
18 ],
19 constants => [
20 qw(
21 &ACCESS_PUBLIC
22 &ACCESS_PROTECTED
23 &ACCESS_PRIVATE
24 &PROP_GET
25 &PROP_SET
26 &PROP_OWNERSET
27 &PROP_LIST
28 &PROP_ALL
29 ) 17 )
30 ], 18 ],
31 19
32 declare => [ 20 declare => [
33 qw( 21 qw(
44 &PROP_GET 32 &PROP_GET
45 &PROP_SET 33 &PROP_SET
46 &PROP_OWNERSET 34 &PROP_OWNERSET
47 &PROP_LIST 35 &PROP_LIST
48 &PROP_ALL 36 &PROP_ALL
37 &PROP_RO
38 &PROP_RW
49 ) 39 )
50 ], 40 ],
51 compare => [ 41 compare => [
52 qw( 42 qw(
53 &equals 43 &equals
67 ] 57 ]
68 ); 58 );
69 59
70 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } }; 60 our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
71 61
72 use constant { 62 use IMPL::Const qw(:all);
73 ACCESS_PUBLIC => 1,
74 ACCESS_PROTECTED => 2,
75 ACCESS_PRIVATE => 3,
76 PROP_GET => 1,
77 PROP_SET => 2,
78 PROP_OWNERSET => 10,
79 PROP_LIST => 4,
80 PROP_ALL => 3
81 };
82 63
83 sub is($$) { 64 sub is($$) {
84 eval { $_[0]->isa( $_[1] ) }; 65 eval { $_[0]->isa( $_[1] ) };
85 } 66 }
86 67