--- a/Lib/IMPL/Class/Property/Direct.pm	Wed Jan 30 03:30:28 2013 +0400
+++ b/Lib/IMPL/Class/Property/Direct.pm	Thu Jan 31 02:18:31 2013 +0400
@@ -18,7 +18,7 @@
 
 sub _direct($) {
     my ($prop_info) = @_;
-    $prop_info->Implementor( $default );
+    $prop_info->implementor( $default );
     return $prop_info;
 }
 
@@ -72,7 +72,7 @@
         no strict 'refs';
         if (ref $self and $self->ExportField) {
             my $field = $self->FieldName($propInfo);
-            *{$propInfo->Class.'::'.$propInfo->Name} = \$field;
+            *{$propInfo->class.'::'.$propInfo->name} = \$field;
         }
     }
 }
@@ -80,7 +80,7 @@
 sub FieldName {
     my ($self,$propInfo) = @_;
     
-    my ($class,$name) = $propInfo->get( qw(Class Name) );
+    my ($class,$name) = $propInfo->get( qw(class name) );
     (my $field = "${class}_$name") =~ s/::/_/g;
     return $field;
 }