Mercurial > pub > Impl

comparison Lib/IMPL/Class/Member.pm @ 275:6253872024a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*refactoring IMPL::Class
author cin
date Thu, 31 Jan 2013 02:18:31 +0400
parents 431db7034a88
children 8a5da17d7ef9
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
11 MOD_PUBLIC => 1, 11 MOD_PUBLIC => 1,
12 MOD_PROTECTED => 2, 12 MOD_PROTECTED => 2,
13 MOD_PRIVATE => 3 13 MOD_PRIVATE => 3
14 }; 14 };
15 15
16 sub virtual($) {
17 $_[0]->Virtual(1);
18 $_[0];
19 }
20
21 sub public($) { 16 sub public($) {
22 $_[0]->Access(MOD_PUBLIC); 17 $_[0]->access(MOD_PUBLIC);
23 $_[0]->Implement; 18 $_[0]->Implement;
24 $_[0]; 19 $_[0];
25 } 20 }
26 21
27 sub private($) { 22 sub private($) {
28 $_[0]->Access(MOD_PRIVATE); 23 $_[0]->access(MOD_PRIVATE);
29 $_[0]->Implement; 24 $_[0]->Implement;
30 $_[0]; 25 $_[0];
31 } 26 }
32 27
33 sub protected($) { 28 sub protected($) {
34 $_[0]->Access(MOD_PROTECTED); 29 $_[0]->access(MOD_PROTECTED);
35 $_[0]->Implement; 30 $_[0]->Implement;
36 $_[0]; 31 $_[0];
37 } 32 }
38 1; 33 1;