1TYPEMAP 2string T_CPPSTRING 3 4INPUT 5 6T_CPPSTRING 7 $var = ($type)SvPV_nolen($arg) 8 9OUTPUT 10 11T_CPPSTRING 12 sv_setpv((SV*)$arg, $var.c_str()); 13