--- a/Lib/IMPL/lang.pm	Wed Jan 30 03:30:28 2013 +0400
+++ b/Lib/IMPL/lang.pm	Thu Jan 31 02:18:31 2013 +0400
@@ -82,19 +82,19 @@
 }
 
 sub public($) {
-    $_[0]->Access(ACCESS_PUBLIC);
+    $_[0]->access(ACCESS_PUBLIC);
     $_[0]->Implement;
     $_[0];
 }
 
 sub private($) {
-    $_[0]->Access(ACCESS_PRIVATE);
+    $_[0]->access(ACCESS_PRIVATE);
     $_[0]->Implement;
     $_[0];
 }
 
 sub protected($) {
-    $_[0]->Access(ACCESS_PROTECTED);
+    $_[0]->access(ACCESS_PROTECTED);
     $_[0]->Implement;
     $_[0];
 }
@@ -103,10 +103,10 @@
     my ( $propName, $mutators, $attributes ) = @_;
     my $Info = new IMPL::Class::PropertyInfo(
         {
-            Name       => $propName,
-            Mutators   => $mutators,
-            Class      => scalar(caller),
-            Attributes => $attributes
+            name       => $propName,
+            mutators   => $mutators,
+            class      => scalar(caller),
+            attributes => $attributes
         }
     );
     return $Info;