Permalink
Switch branches/tags
stable gitpan_version/3.01 gitpan_version/3.0 gitpan_version/2.2311 gitpan_version/2.2222 gitpan_version/2.232 gitpan_version/2.231 gitpan_version/2.222 gitpan_version/2.34 gitpan_version/2.33 gitpan_version/2.32 gitpan_version/2.31 gitpan_version/2.29 gitpan_version/2.28 gitpan_version/2.27 gitpan_version/2.26 gitpan_version/2.25 gitpan_version/2.24 gitpan_version/2.23 gitpan_version/2.22 gitpan_version/2.21 gitpan_version/2.3 gitpan_version/2.2 gitpan_version/2.01 gitpan_version/2.1 gitpan_version/2.0 gitpan_version/1.53 gitpan_version/1.52 gitpan_version/1.51 gitpan_version/1.44 gitpan_version/1.43 gitpan_version/1.42 gitpan_version/1.41 gitpan_version/1.24 gitpan_version/1.23 gitpan_version/1.22 gitpan_version/1.21 gitpan_version/1.11 gitpan_version/1.5 gitpan_version/1.4 gitpan_version/1.3 gitpan_version/1.2 gitpan_version/1.01 gitpan_version/1.1 gitpan_version/1.0 gitpan_version/0.31 gitpan_version/0.8 gitpan_version/0.7 gitpan_version/0.5 gitpan_version/0.3 gitpan_version/0.2 gitpan_version/0.1 cpan_version/3.01 cpan_version/3.0 cpan_version/2.2311 cpan_version/2.2222 cpan_version/2.232 cpan_version/2.231 cpan_version/2.222 cpan_version/2.34 cpan_version/2.33 cpan_version/2.32 cpan_version/2.31 cpan_version/2.29 cpan_version/2.28 cpan_version/2.27 cpan_version/2.26 cpan_version/2.25 cpan_version/2.24 cpan_version/2.23 cpan_version/2.22 cpan_version/2.21 cpan_version/2.3 cpan_version/2.2 cpan_version/2.01 cpan_version/2.1 cpan_version/2.0 cpan_version/1.53 cpan_version/1.52 cpan_version/1.51 cpan_version/1.44 cpan_version/1.43 cpan_version/1.42 cpan_version/1.41 cpan_version/1.24 cpan_version/1.23 cpan_version/1.22 cpan_version/1.21 cpan_version/1.11 cpan_version/1.5 cpan_version/1.4 cpan_version/1.3 cpan_version/1.2 cpan_version/1.01 cpan_version/1.1 cpan_version/1.0 cpan_version/0.31 cpan_version/0.8 cpan_version/0.7 cpan_version/0.5
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (11 sloc) 315 Bytes
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));