--- a/Lib/IMPL/Object/Singleton.pm	Mon Apr 22 03:42:53 2013 +0400
+++ b/Lib/IMPL/Object/Singleton.pm	Mon Apr 29 01:10:42 2013 +0400
@@ -9,11 +9,12 @@
 
 __PACKAGE__->static_accessor_own(_instance => undef);
 
-my %instances;
-
-sub CTOR {
-    die IMPL::InvalidOperationException->new("Only one instance of the singleton can be created",ref $_[0])
-        if $_[0]->_instance;
+sub InitInstance {
+    my $self = shift;
+    die IMPL::InvalidOperationException->new("Only one instance of the singleton can be created", $self)
+        if $self->_instance;
+        
+    $self->_instance($self->new(@_));
 }
 
 sub instance {