Commit | Line | Data |
---|---|---|
38bf2a25 | 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 | } |