TYPEMAP QRcode * T_QRCODE QRinput * T_QRINPUT QRencodeMode T_ENUM QRecLevel T_ENUM INPUT T_QRCODE if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"Data::QRCode\") T_QRINPUT if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode::Input\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"Data::QRCode::Input\") OUTPUT T_QRCODE sv_setref_pv($arg, \"Data::QRCode\", (void*)$var); T_QRINPUT sv_setref_pv($arg, \"Data::QRCode::Input\", (void*)$var);