diff _test/temp.pl @ 419:bbc4739c4d48 ref20150831

working on IMPL::Config::Container
author cin
date Sun, 29 Jan 2017 10:30:20 +0300
parents 3f38dabaf5cc
children b0481c071bea
line wrap: on
line diff
--- a/_test/temp.pl	Mon Dec 28 15:11:35 2015 +0300
+++ b/_test/temp.pl	Sun Jan 29 10:30:20 2017 +0300
@@ -16,7 +16,8 @@
 
 my $data;
 {
-	open my $h, "sample.yaml" or die;
+	open my $h, "<", "sample.yaml" or die;
+	print "H: ", *{$h}{IO}, "\n";
 	binmode $h;
 	local $/;
 	$data = <$h>;