--- a/_test/temp.pl	Mon Aug 31 10:23:42 2015 +0300
+++ b/_test/temp.pl	Mon Aug 31 20:22:16 2015 +0300
@@ -1,11 +1,37 @@
 #!/usr/bin/perl
 use strict;
 
-my $p = 'sometype';
-my $c = 'My::App::aSomeType';
+use YAML::XS;
+$YAML::XS::DumpCode = 1;
 
-my $suffix = substr($c, -length($p));
-my $prefix = substr($c, 0, -length($p));
-print join ("\n",$suffix,$prefix,$p,$c), "\n";
+my $conf = {
+	'@include' => [qw(security view)],
+	runtime => {
+		type => 'IMPL::Web::Application',
+		params => {
+			handlers => {depdendency => 'filters'}
+		} 
+	},
+	filters => [
+		{ type => 'IMPL::Web::CookieAuth' },
+		{ type => 'IMPL::Web::Security' },
+		{ type => 'IMPL::Web::LocaleHandler',
+			params => {
+				locales => [
+					'en-US',
+					'ru-RU'
+				],
+				default => 'en-US'
+			}
+		},
+		{ type => 'IMPL::Web::ContentNegotiation' },
+		{ type => 'IMPL::Web::RestController' }
+	],
+	custom => {
+		factory => sub { return "hi!" }
+	}
+};
 
-print $prefix && not(substr($prefix,-2) eq '::') ? 'corrupted' : 'class' ;
\ No newline at end of file
+print Dump($conf);
+
+1;
\ No newline at end of file