예제 #1
0
	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))));
}