Commit | Line | Data |
1b64d24d |
1 | TYPEMAP |
d8cc97fb |
2 | FCGI T_FCGIOBJNOMUNGE |
3 | FCGI::Stream T_FCGISTREAM |
4 | GLOBREF T_GLOBREF |
5 | HASHREF T_HASHREF |
1b64d24d |
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}\") |
eede4b76 |
13 | T_FCGISTREAM |
14 | if (sv_isa($arg, \"FCGI::Stream\")) { |
90a18d65 |
15 | $var = ($type) SvIV((SV*)SvRV($arg)); |
16 | } else |
17 | croak(\"$var is not of type ${ntype}\") |
d8cc97fb |
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\"); |