use warnings;
use strict;
use Test::More;
use Acme::Die::Hash;
eval {
    acme_die_hash ();
};
ok ($@, "Died");
note ($@);
ok (ref $@ eq 'HASH', "Died with a hash");
ok ($@->{funky} == 1, "Got 1 for funky key");
done_testing ();