Mercurial > pub > Impl

comparison Lib/IMPL/declare.pm @ 278:4ddb27ff4a0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents 6253872024a4
children af8af4b8337e
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
103 sub _implementProps { 103 sub _implementProps {
104 my ($self, $props, $caller) = @_; 104 my ($self, $props, $caller) = @_;
105 105
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 $caller->ClassPropertyImplementor->Implement(
110 $spec,
110 { 111 {
111 name => $prop, 112 name => $prop,
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();
120 } 119 }
121 } 120 }
122 121
123 1; 122 1;
124 123