perl/typemap

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