perl/typemap

   1 TYPEMAP
   2 FCGI            T_PTROBJ
   3 FCGI::Stream    T_PTROBJ
   4 GLOBREF         T_GLOBREF
   5 HASHREF         T_HASHREF
   6
   7 INPUT
   8 T_GLOBREF
   9     if (SvROK($arg) && isGV(SvRV($arg))) {
  10         $var = (GV*)SvRV($arg);
  11     } else
  12         croak(\"$var is not a GLOB reference\");
  13 T_HASHREF
  14     if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) {
  15         $var = (HV*)SvRV($arg);
  16     } else
  17         croak(\"$var is not a reference to a hash\");