use
Config::Format::Ini;
my
$dir
=
$ENV
{PWD} =~ m
#\/t$# ? './data' : 't/data';
my
$b0
= {
cars
=> {
reno
=> [
qw/ white /
],
bmw
=> [
qw/ white /
],
fiat
=> [
qw/ blue green /
],
ford
=> [
qw/ blue green /
],
mini
=> [
qw/ /
],
}
};
my
$b1
= {
cars
=>{},
person
=>{} ,
vin
=>{} };
my
$res
;
$res
= read_ini <
$dir
/comments2>;
is_deeply(
$res
,
$b1
) ;
$res
= read_ini <
$dir
/comments1>;
is_deeply(
$res
,
$b0
,
'comments'
) ;