--- a/Lib/IMPL/Class/Member.pm	Wed Jan 30 03:30:28 2013 +0400
+++ b/Lib/IMPL/Class/Member.pm	Thu Jan 31 02:18:31 2013 +0400
@@ -13,25 +13,20 @@
     MOD_PRIVATE => 3
 };
 
-sub virtual($) {
-    $_[0]->Virtual(1);
-    $_[0];
-}
-
 sub public($) {
-    $_[0]->Access(MOD_PUBLIC);
+    $_[0]->access(MOD_PUBLIC);
     $_[0]->Implement;
     $_[0];
 }
 
 sub private($) {
-    $_[0]->Access(MOD_PRIVATE);
+    $_[0]->access(MOD_PRIVATE);
     $_[0]->Implement;
     $_[0];
 }
 
 sub protected($) {
-    $_[0]->Access(MOD_PROTECTED);
+    $_[0]->access(MOD_PROTECTED);
     $_[0]->Implement;
     $_[0];
 }