Mercurial > pub > Impl

annotate _test/temp.pl @ 414:ec6f2d389d1e ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on IMPL::Config::Bag
author cin
date Fri, 02 Oct 2015 06:56:24 +0300
parents 30e8c6a74937
children 3d24b10dd0d5
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);
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
5 use Scalar::Util qw(blessed);
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
6
414
ec6f2d389d1e working on IMPL::Config::Bag
cin
parents: 412
diff changeset
7 my $data = [1,2,3];
407
c6e90e02dd17 renamed Lib->lib
cin
parents: 406
diff changeset
8
414
ec6f2d389d1e working on IMPL::Config::Bag
cin
parents: 412
diff changeset
9 print foreach @$data, 4;
412
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
10
407
c6e90e02dd17 renamed Lib->lib
cin
parents: 406
diff changeset
11 1;