TStrStrTrie*      T_PTROBJ
TStrStrTrie::TConstIterator* T_PTROBJ
TString      T_STROKA

INPUT
T_STROKA
        {
                STRLEN len;
                const char * tmp = SvPV($arg, len);
                $var.assign(tmp, len);
        }

OUTPUT
T_STROKA
        sv_setpvn((SV*)$arg, (const char *) ($var.data()), ($var.size()));
