Mercurial > pub > Impl

comparison Lib/IMPL/lang.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 8d36073411b1
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
80 $_[0]->Virtual(1); 80 $_[0]->Virtual(1);
81 $_[0]; 81 $_[0];
82 } 82 }
83 83
84 sub public($) { 84 sub public($) {
85 $_[0]->Access(ACCESS_PUBLIC); 85 $_[0]->access(ACCESS_PUBLIC);
86 $_[0]->Implement; 86 $_[0]->Implement;
87 $_[0]; 87 $_[0];
88 } 88 }
89 89
90 sub private($) { 90 sub private($) {
91 $_[0]->Access(ACCESS_PRIVATE); 91 $_[0]->access(ACCESS_PRIVATE);
92 $_[0]->Implement; 92 $_[0]->Implement;
93 $_[0]; 93 $_[0];
94 } 94 }
95 95
96 sub protected($) { 96 sub protected($) {
97 $_[0]->Access(ACCESS_PROTECTED); 97 $_[0]->access(ACCESS_PROTECTED);
98 $_[0]->Implement; 98 $_[0]->Implement;
99 $_[0]; 99 $_[0];
100 } 100 }
101 101
102 sub property($$;$) { 102 sub property($$;$) {
103 my ( $propName, $mutators, $attributes ) = @_; 103 my ( $propName, $mutators, $attributes ) = @_;
104 my $Info = new IMPL::Class::PropertyInfo( 104 my $Info = new IMPL::Class::PropertyInfo(
105 { 105 {
106 Name => $propName, 106 name => $propName,
107 Mutators => $mutators, 107 mutators => $mutators,
108 Class => scalar(caller), 108 class => scalar(caller),
109 Attributes => $attributes 109 attributes => $attributes
110 } 110 }
111 ); 111 );
112 return $Info; 112 return $Info;
113 } 113 }
114 114