Mercurial > pub > Impl

annotate _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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
1 #!/usr/bin/perl
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
2 use strict;
412
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
3 use Carp;
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
4 use Time::HiRes qw(gettimeofday tv_interval);
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
5 use Scalar::Util qw(blessed refaddr);
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
6 use YAML::XS qw(Dump);
407
c6e90e02dd17 renamed Lib->lib
cin
parents: 406
diff changeset
7
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
8 print Dump {
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
9 services => [
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
10 { role => 'db', type => 'My::Data::Context', params => { '-ref' => 'some-role' } }
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
11 ]
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
12 };
407
c6e90e02dd17 renamed Lib->lib
cin
parents: 406
diff changeset
13 1;