static my_type cast_to(const Scalar::Base& value) { return my_type(value.int_value()); }
const Array::Temp Interpreter::eval_list(const Scalar::Base& string) const { return implementation::Call_stack(interp).eval_list(string.get_SV(true)); }
void Perl_stack::push(const Scalar::Base& value) { XPUSHs(sv_2mortal(SvREFCNT_inc(value.get_SV(false)))); }