xs/typemap

   1 type_filter_t  T_TYPE_FILTER
   2
   3 INPUT
   4
   5 T_TYPE_FILTER
   6     {
   7         const char *__tMp = SvPV_nolen($arg);
   8         switch (*__tMp) {
   9             case 'C': $var = TYPE_FILTER_CODE;   break;
  10             case 'A': $var = TYPE_FILTER_ARRAY;  break;
  11             case 'I': $var = TYPE_FILTER_IO;     break;
  12             case 'H': $var = TYPE_FILTER_HASH;   break;
  13             case 'S': $var = TYPE_FILTER_SCALAR; break;
  14             default:
  15                 croak(\"Unknown type %s\\n\", __tMp);
  16         }
  17     }