--- a/_test/temp.pl	Tue May 15 00:51:01 2018 +0300
+++ b/_test/temp.pl	Tue May 15 00:51:33 2018 +0300
@@ -8,44 +8,46 @@
 use Data::Dumper;
 use URI;
 
-package Bar;
-use base qw(IMPL::Object);
-
-sub CTOR {
-}
-
-package Bar2;
-use base qw(Bar);
-
-sub CTOR {
-}
-
 package Foo;
 use base qw(IMPL::Object::_Base);
 
 sub new {
 	my $instance = bless {}, shift;
-	$instance->__construct();
+	$instance->__construct(@_);
 	return $instance;
 }
 
 sub CTOR {
+	say "Foo @_";
 }
 
 package Foo2;
 use base qw(Foo);
 
 sub CTOR {
-	
-} 
+	say "Foo2 @_";	
+}
+
+package Bar;
+
+sub CTOR {
+	say "Bar";
+}
+
+package Baz;
+use base qw(Foo2 Bar);
+
+sub CTOR {
+	say "Baz";
+}
+
+
 
 package main;
 
 my $t = [gettimeofday];
 
-for(my $i=0; $i <1000000; $i++) {
-	my $v = new Foo2;
-}
+new Baz("-hi!");
 
 say tv_interval($t);