--- a/_test/temp.pl	Mon Sep 14 01:11:53 2015 +0300
+++ b/_test/temp.pl	Mon Sep 21 00:53:10 2015 +0300
@@ -1,32 +1,9 @@
 #!/usr/bin/perl
 use strict;
 
-use Time::HiRes qw(gettimeofday tv_interval);
-use constant COUNT => 20000000;
-
-my $t;
-
-$t = [gettimeofday];
-
-for ( my $i = 0 ; $i < COUNT ; $i++ ) {
-    my $o = [];
-    $o->[0] = 10;
-    $o->[20] = 11;
-}
+use IMPL::require { ServicesBag => 'IMPL::Config::ServicesBag' };
 
-print "Arrays: ", tv_interval( $t, [gettimeofday] ), "\n";
-
-$t = [gettimeofday];
-
-
-for ( my $i = 0 ; $i < COUNT ; $i++ ) {
-    my $o = {};	
-    $o->{a} = 10;
-    $o->{b} = 11;
-}
-
-print "Hashes: ", tv_interval( $t, [gettimeofday] ), "\n";
-
+my $root = ServicesBag->new();
 
 
 1;