Commit | Line | Data |
---|---|---|
a382a84b | 1 | TYPEMAP |
2 | varspec_t T_VARSPEC | |
3 | vartype_t T_VARTYPE | |
4 | ||
5 | INPUT | |
6 | T_VARSPEC | |
7 | if (SvPOK($arg)) | |
8 | _deconstruct_variable_name(SvPV_nolen($arg), &$var); | |
9 | else if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) | |
10 | _deconstruct_variable_hash((HV*)SvRV($arg), &$var); | |
11 | else | |
12 | croak(\"varspec must be a string or a hashref\"); | |
13 | ||
14 | T_VARTYPE | |
15 | if (!SvPOK($arg)) | |
16 | croak(\"vartype must be a string\"); | |
17 | $var = string_to_vartype(SvPV_nolen($arg)); |