typemap   [plain text]

JSON *		T_JSON

INPUT

T_JSON
	if (!(
           SvROK ($arg)
           && SvOBJECT (SvRV ($arg))
           && (SvSTASH (SvRV ($arg)) == JSON_STASH || sv_derived_from ($arg, \"JSON::XS\"))
        ))
          croak (\"object is not of type JSON::XS\");
        /**/
        $var = (JSON *)SvPVX (SvRV ($arg));