Mercurial > pub > Impl

comparison _test/temp.pl @ 415:3d24b10dd0d5 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on IMPL::Config::Container
author cin
date Tue, 20 Oct 2015 07:32:55 +0300
parents ec6f2d389d1e
children 3ed0c58e9da3
comparison
equal deleted inserted replaced
414:ec6f2d389d1e 415:3d24b10dd0d5
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 use strict; 2 use strict;
3 use Carp; 3 use Carp;
4 use Time::HiRes qw(gettimeofday tv_interval); 4 use Time::HiRes qw(gettimeofday tv_interval);
5 use Scalar::Util qw(blessed); 5 use Scalar::Util qw(blessed refaddr);
6 use YAML::XS qw(Dump);
6 7
7 my $data = [1,2,3]; 8 print Dump {
8 9 services => [
9 print foreach @$data, 4; 10 { role => 'db', type => 'My::Data::Context', params => { '-ref' => 'some-role' } }
10 11 ]
12 };
11 1; 13 1;