The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use v5.10;
my $c = Config::Reload->new( file => 't/data/valid.pl' );
if ($^O =~ /bsd$/) { # CPANT repots error on BSD systems
diag Dumper($c->load);
diag $c->error;
}
is_deeply $c->load, { foo => 'bar' }, 'valid';
ok $c->loaded, 'has been loaded';
cmp_ok $c->checked, '<=', $c->loaded, 'has been checked';
# trigger an error
$c = Config::Reload->new( file => 't/data/invalid.pl' );
is_deeply $c->load, { }, 'empty hash reference on error';
is $c->loaded, undef, 'not loaded after error';
ok $c->error, 'error on load';
done_testing;