1 2 3 4 5 6 7 8 9 10 11 12 13
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));