comparison Lib/IMPL/Class/Property/Base.pm @ 277:6585464c4664

sync (unstable)
author sergey
date Fri, 01 Feb 2013 16:37:59 +0400
parents 8a5da17d7ef9
children
comparison
equal deleted inserted replaced
276:8a5da17d7ef9 277:6585464c4664
104 $propInfo->ownerSet( $mutators->{owner} ); 104 $propInfo->ownerSet( $mutators->{owner} );
105 105
106 1; 106 1;
107 } 107 }
108 108
109 sub Implement {
110 my ($self, $name, $spec) = @_;
111
112 {
113 name =>
114 }
115 }
116
117 # extract from property info: class, name, get_accessor, set_accessor, validator 109 # extract from property info: class, name, get_accessor, set_accessor, validator
118 sub RemapFactoryParams { 110 sub RemapFactoryParams {
119 my ($self,$propInfo) = @_; 111 my ($self,$propInfo) = @_;
120 112
121 my $mutators = $propInfo->mutators; 113 my $mutators = $propInfo->mutators;