perl/typemap

   1 TYPEMAP
   2 FCGI    T_FCGIOBJNOMUNGE
   3
   4 INPUT
   5 T_FCGIOBJNOMUNGE
   6     if (sv_isa($arg, \"FCGI\")) {
   7         $var = ($type) SvIV((SV*)SvRV($arg));
   8     } else
   9         croak(\"$var is not of type ${ntype}\")