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;