view _test/temp.pl @ 414:ec6f2d389d1e ref20150831

working on IMPL::Config::Bag
author cin
date Fri, 02 Oct 2015 06:56:24 +0300
parents 30e8c6a74937
children 3d24b10dd0d5
line wrap: on
line source

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

my $data = [1,2,3];

print foreach @$data, 4;

1;