Mercurial > pub > Impl

comparison _test/temp.pl @ 419:bbc4739c4d48 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 Sun, 29 Jan 2017 10:30:20 +0300
parents 3f38dabaf5cc
children b0481c071bea
comparison
equal deleted inserted replaced
418:3f38dabaf5cc 419:bbc4739c4d48
14 Value => 'IMPL::Config::ValueDescriptor' 14 Value => 'IMPL::Config::ValueDescriptor'
15 }; 15 };
16 16
17 my $data; 17 my $data;
18 { 18 {
19 open my $h, "sample.yaml" or die; 19 open my $h, "<", "sample.yaml" or die;
20 print "H: ", *{$h}{IO}, "\n";
20 binmode $h; 21 binmode $h;
21 local $/; 22 local $/;
22 $data = <$h>; 23 $data = <$h>;
23 } 24 }
24 25