| Subject: | Error inputting an array whose first element is a string and its second is a hash-ref. |
Attached is a Test::More script that dies with Config-General-2.43. What
happens is that I'm using something like:
MyKey MyValue
<MyKey>
Key2 Value2
</MyKey>
| Subject: | config-general-1.t |
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;
use Config::General;
use YAML::XS qw(DumpFile);
my $conf = Config::General->new(-String => <<'EOF');
<Controller::Distribution>
graph_path __HOME__/root/dist/graph/
</Controller::Distribution>
name CPANHQ
<Model::DB>
connect_info dbi:SQLite:dbname=__HOME__/cpanhq.db
connect_info undef
</Model::DB>
<Production>
Test hello
<Test>
One Two
Three Four
</Test>
</Production>
EOF
my %values = $conf->getall();
# TEST
is_deeply (
$values{'Production'}{'Test'},
[
"hello",
{
One => "Two",
Three => "Four",
},
],
"Production is OK."
);