use lib 't/lib';
use HOpts;
use Test::More tests => 2;
{
my $o = HOpts->new;
is($o->hopts( param => 2 ), '0 2');
eval {
$o->die_in_action;
};
is($@, "Modification of a read-only %hopts attempted at t/lib/HOpts.pm line 16\n");
}