Ejemplo n.º 1
0
	const Array::Temp Interpreter::eval_list(const Scalar::Base& string) const {
		return implementation::Call_stack(interp).eval_list(string.get_SV(true));
	}
Ejemplo n.º 2
0
void Perl_stack::push(const Scalar::Base& value) {
    XPUSHs(sv_2mortal(SvREFCNT_inc(value.get_SV(false))));
}