--- a/Lib/IMPL/Object/Abstract.pm	Fri Jul 17 13:30:46 2009 +0400
+++ b/Lib/IMPL/Object/Abstract.pm	Mon Aug 10 17:39:08 2009 +0400
@@ -1,27 +1,14 @@
 package IMPL::Object::Abstract;
 use strict;
 use warnings;
-package IMPL::Object;
-use strict;
 
 use base qw(IMPL::Class::Meta);
 
 our $MemoryLeakProtection;
 my $Cleanup = 0;
-our $Debug;
-our %leaked_objects;
 
 my %cacheCTOR;
 
-
-sub new {
-    my $class = shift;
-    my $self = bless {}, ref($class) || $class;
-    
-    $self->$_(@_) foreach @{$cacheCTOR{ref $self} || cache_ctor(ref $self)};
-  
-    $self;
-}
 my $t = 0;
 sub cache_ctor {
     my $class = shift;
@@ -66,10 +53,6 @@
     $self->$_(@_) foreach @{$cacheCTOR{$class} || cache_ctor($class)};
 }
 
-sub surrogate {
-    bless {}, ref $_[0] || $_[0];
-}
-
 sub superCTOR {
     my $this = shift;
 
@@ -91,7 +74,6 @@
 
 sub END {
     $Cleanup = 1;
-    $MemoryLeakProtection = 0 unless $Debug;
 }
 
 sub _pass_throgh_mapper {
@@ -141,9 +123,6 @@
 
 Реализация механизма вызова конструкторов и других вспомогательных вещей, кроме операторов
 создания экземпляров.
-
+=cut
 
 1;
-
-
-1;