コード例 #1
0
ファイル: interpreter.C プロジェクト: Leont/libperl--
	const Array::Temp Interpreter::eval_list(const Scalar::Base& string) const {
		return implementation::Call_stack(interp).eval_list(string.get_SV(true));
	}
コード例 #2
0
ファイル: call.C プロジェクト: Gustra/libperl--
void Perl_stack::push(const Scalar::Base& value) {
    XPUSHs(sv_2mortal(SvREFCNT_inc(value.get_SV(false))));
}