perl/typemap

   1 TYPEMAP
   2 FCGI            T_FCGIOBJNOMUNGE
   3 FCGI::Stream    T_FCGISTREAM
   4 GLOBREF         T_GLOBREF
   5 HASHREF         T_HASHREF
   6
   7 INPUT
   8 T_FCGIOBJNOMUNGE
   9     if (sv_isa($arg, \"FCGI\")) {
  10         $var = ($type) SvIV((SV*)SvRV($arg));
  11     } else
  12         croak(\"$var is not of type ${ntype}\")
  13 T_FCGISTREAM
  14     if (sv_isa($arg, \"FCGI::Stream\")) {
  15         $var = ($type) SvIV((SV*)SvRV($arg));
  16     } else
  17         croak(\"$var is not of type ${ntype}\")
  18 T_GLOBREF
  19     if (SvROK($arg) && isGV(SvRV($arg))) {
  20         $var = (GV*)SvRV($arg);
  21     } else
  22         croak(\"$var is not a GLOB reference\");
  23 T_HASHREF
  24     if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) {
  25         $var = (HV*)SvRV($arg);
  26     } else
  27         croak(\"$var is not a reference to a hash\");