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