#!/usr/bin/perl
use strict;
use Carp;
use Time::HiRes qw(gettimeofday tv_interval);
use Scalar::Util qw(blessed refaddr);
use YAML::XS qw(Dump);

print Dump {
	services => [
	   { role => 'db', type => 'My::Data::Context', params => { '-ref' => 'some-role' } }
	]
};
1;