Mercurial > pub > Impl
diff Lib/IMPL/Class/Property/Base.pm @ 275:6253872024a4
*refactoring IMPL::Class
author | cin |
---|---|
date | Thu, 31 Jan 2013 02:18:31 +0400 |
parents | 6d8092d8ce1b |
children | 8a5da17d7ef9 |
line wrap: on
line diff
--- a/Lib/IMPL/Class/Property/Base.pm Wed Jan 30 03:30:28 2013 +0400 +++ b/Lib/IMPL/Class/Property/Base.pm Thu Jan 31 02:18:31 2013 +0400 @@ -78,11 +78,11 @@ my $factoryInfo = $factoryCache{$key}; unless ($factoryInfo) { - my $mutators = $self->GenerateAccessors($propInfo->Mutators); + my $mutators = $self->GenerateAccessors($propInfo->mutators); $factoryInfo = { factory => $self->CreateFactory( - $access_code{ $propInfo->Access }, - $propInfo->Attributes->{validator} ? $validator_code : "", + $access_code{ $propInfo->access }, + $propInfo->attributes->{validator} ? $validator_code : "", $mutators->{owner}, $mutators->{get} || $accessor_get_no, $mutators->{set} || $accessor_set_no @@ -94,7 +94,7 @@ { no strict 'refs'; - *{ $propInfo->Class.'::'.$propInfo->Name } = $factoryInfo->{factory}->($self->RemapFactoryParams($propInfo)); + *{ $propInfo->class.'::'.$propInfo->name } = $factoryInfo->{factory}->($self->RemapFactoryParams($propInfo)); } my $mutators = $factoryInfo->{mutators}; @@ -114,14 +114,14 @@ sub RemapFactoryParams { my ($self,$propInfo) = @_; - my $mutators = $propInfo->Mutators; - my $class = $propInfo->Class; - my $validator = $propInfo->Attributes->{validator}; + my $mutators = $propInfo->mutators; + my $class = $propInfo->class; + my $validator = $propInfo->attributes->{validator}; die new IMPL::Exception('Can\'t find the specified validator',$class,$validator) if $validator and ref $validator ne 'CODE' and not $class->can($validator); return ( - $propInfo->get(qw(Class Name)), + $propInfo->get(qw(class name)), (ref $mutators? ($mutators->{set},$mutators->{get}) : @@ -134,7 +134,7 @@ sub MakeFactoryKey { my ($self,$propInfo) = @_; - my ($access,$mutators,$validator) = ($propInfo->get(qw(Access Mutators)),$propInfo->Attributes->{validator}); + my ($access,$mutators,$validator) = ($propInfo->get(qw(access mutators)),$propInfo->attributes->{validator}); my $implementor = ref $self || $self;