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)) |
64b79211 |
8 | _deconstruct_variable_name($arg, &$var); |
a382a84b |
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\"); |
1ff84a32 |
13 | _check_varspec_is_valid(&$var); |
a382a84b |
14 | |
15 | T_VARTYPE |
16 | if (!SvPOK($arg)) |
17 | croak(\"vartype must be a string\"); |
18 | $var = string_to_vartype(SvPV_nolen($arg)); |