Mercurial > pub > Impl

comparison Lib/IMPL/declare.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 32aceba4ee6d
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
106 for ( my $i = 0 ; $i < @$props - 1 ; $i = $i + 2 ) { 106 for ( my $i = 0 ; $i < @$props - 1 ; $i = $i + 2 ) {
107 my ( $prop, $spec ) = @{$props}[ $i, $i + 1 ]; 107 my ( $prop, $spec ) = @{$props}[ $i, $i + 1 ];
108 108
109 my $propInfo = IMPL::Class::PropertyInfo->new( 109 my $propInfo = IMPL::Class::PropertyInfo->new(
110 { 110 {
111 Name => $prop, 111 name => $prop,
112 Mutators => $spec, 112 mutators => $spec,
113 Class => $caller, 113 class => $caller,
114 Access => $prop =~ /^_/ 114 access => $prop =~ /^_/
115 ? ACCESS_PRIVATE 115 ? ACCESS_PRIVATE
116 : ACCESS_PUBLIC 116 : ACCESS_PUBLIC
117 } 117 }
118 ); 118 );
119 $propInfo->Implement(); 119 $propInfo->Implement();