--- a/Lib/IMPL/Object/Abstract.pm	Wed Sep 14 18:59:01 2011 +0400
+++ b/Lib/IMPL/Object/Abstract.pm	Tue Oct 04 17:55:38 2011 +0400
@@ -23,7 +23,7 @@
 		
 		my $mapper = $refCTORS ? $refCTORS->{$super} : undef;
 		if (ref $mapper eq 'CODE') {
-		    if ($mapper == *_pass_throgh_mapper{CODE}) {
+		    if ($mapper == *_pass_through_mapper{CODE}) {
 				push @sequence,@$superSequence;
 		    } else {
 				push @sequence, sub {
@@ -86,12 +86,12 @@
     $Cleanup = 1;
 }
 
-sub _pass_throgh_mapper {
+sub _pass_through_mapper {
     @_;
 }
 
 sub PassArgs {
-    \&_pass_throgh_mapper;
+    \&_pass_through_mapper;
 }
 
 sub PassThroughArgs {
@@ -99,7 +99,7 @@
     $class = ref $class || $class;
     no strict 'refs';
     no warnings 'once';
-    ${"${class}::CTOR"}{$_} = \&_pass_throgh_mapper foreach @{"${class}::ISA"};
+    ${"${class}::CTOR"}{$_} = \&_pass_through_mapper foreach @{"${class}::ISA"};
 }
 
 package self;