The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 2;
use Config::YAML;

@config{"attrib1", "attrib2"} = qw(37 foo);

my $c = Config::YAML->new(config => 't/test.yaml');
$c->fold(\%config);
ok($c->{attrib1} == 37);
ok($c->{attrib2} eq 'foo', "Folding from hash works.");