1TYPEMAP
2double T_NV
3
4INPUT
5T_NV
6	$var = ($type)SvNV($arg);
7
8OUTPUT
9T_NV
10	sv_setnv($arg, (NV)$var);
11