src/typemap

   1 TYPEMAP
   2 VIWIN   T_VIOBJNOMUNGE
   3 VIBUF   T_VIOBJNOMUNGE
   4
   5 INPUT
   6 T_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}\")