1TYPEMAP
2VIWIN T_VIOBJNOMUNGE
3VIBUF T_VIOBJNOMUNGE
4
5INPUT
6T_VIOBJNOMUNGE
7 if (sv_isa($arg, \"${ntype}\")) {
8 IV tmp = SvIV((SV*)SvRV($arg));
9 $var = ($type) tmp;
10 if (!tmp)
11 croak(\"$ntype no longer exists\");
12 }
13 else
14 croak(\"$var is not of type ${ntype}\")
15