--- a/_test/temp.pl	Fri Oct 02 06:56:24 2015 +0300
+++ b/_test/temp.pl	Tue Oct 20 07:32:55 2015 +0300
@@ -2,10 +2,12 @@
 use strict;
 use Carp;
 use Time::HiRes qw(gettimeofday tv_interval);
-use Scalar::Util qw(blessed);
-
-my $data = [1,2,3];
+use Scalar::Util qw(blessed refaddr);
+use YAML::XS qw(Dump);
 
-print foreach @$data, 4;
-
+print Dump {
+	services => [
+	   { role => 'db', type => 'My::Data::Context', params => { '-ref' => 'some-role' } }
+	]
+};
 1;