1JSON * T_JSON
2
3INPUT
4
5T_JSON
6 if (!(
7 SvROK ($arg)
8 && SvOBJECT (SvRV ($arg))
9 && (SvSTASH (SvRV ($arg)) == JSON_STASH || sv_derived_from ($arg, \"JSON::XS\"))
10 ))
11 croak (\"object is not of type JSON::XS\");
12 /**/
13 $var = (JSON *)SvPVX (SvRV ($arg));
14
15
16