#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

static void acme_die_hash ()
{
    HV * hv;
    SV * sva;
    SV * svb;
    SV * hashref;
    sva = newSViv (1);
    svb = newSViv (2);
    hv = newHV ();
    hv_store (hv, "funky", strlen ("funky"), sva, 0);
    hv_store (hv, "click", strlen ("click"), svb, 0);
    hashref = newRV_inc ((SV *) hv);
    croak_sv (hashref);
};

MODULE=Acme::Die::Hash PACKAGE=Acme::Die::Hash

PROTOTYPES: DISABLE

void
acme_die_hash ()
CODE:
	acme_die_hash ();