- or download this
obj_ref = sv_setref_pv(newSViv(0), class, (void *)soldier);
SvREADONLY_on(SvRV(obj_ref));
return obj_ref;
- or download this
SV* obj = newSViv((IV)soldier);
SV* obj_ref = newRV_noinc(obj);
sv_bless(obj_ref, gv_stashpv(class, TRUE));
SvREADONLY_on(obj);
return obj_ref;
- or download this
obj_ref = sv_setref_pv(newSV(0), class, (void *)soldier);
SvREADONLY_on(SvRV(obj_ref));
return obj_ref;
- or download this
GrNode * T_GR_NODE
...
OUTPUT
T_GR_NODE
$arg = $var ? wrap("Rx::DOM::Node", $var) : &PL_sv_undef;