TYPEMAP

PLJSONSL *	T_PLJSONSL
PLTUBA*		T_PLTUBA

INPUT
T_PLJSONSL
	if (! (SvROK($arg) && SvOBJECT(SvRV($arg)) && SvIOK(SvRV($arg)))) {
	die(\"Not a valid JSON::SL object\");
	}

	$var = NUM2PTR(PLJSONSL *, SvIV(SvRV($arg)));

T_PLTUBA
	if (! (SvROK($arg) && SvOBJECT(SvRV($arg)) && SvTYPE(SvRV($arg)) >= SVt_PVHV)) {
	die(\"Not a valid JSON::SL::Tuba object\");
	}
    $var = (PLTUBA*)hv_fetchs((HV*)SvRV($arg), PLTUBA_HKEY_NAME, 0);
    if ($var == NULL || (SvIOK(*(SV**)$var) == 0 && SvREFCNT($arg))) {
        die(\"Did you mangle my hash?!\");
    }
    $var = NUM2PTR(PLTUBA *, SvIV(*(SV**)$var));