view _test/temp.pl @ 421:7798345304bc ref20150831

working on IMPL::Config, removed old stuff
author cin
date Sun, 16 Jul 2017 22:59:39 +0300
parents bbc4739c4d48
children b0481c071bea
line wrap: on
line source

#!/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 Load);



use IMPL::require {
	Container => 'IMPL::Config::Container',
	Service => 'IMPL::Config::ServiceDescriptor',
	Reference => 'IMPL::Config::ReferenceDescriptor',
	Value => 'IMPL::Config::ValueDescriptor'
};

my $data;
{
	open my $h, "<", "sample.yaml" or die;
	print "H: ", *{$h}{IO}, "\n";
	binmode $h;
	local $/;
	$data = <$h>;
}

my $t = [gettimeofday];

print Dump Load($data);

print "Activated: ",tv_interval($t,[gettimeofday]),"\n";


1;