JSON *		T_JSON

INPUT

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