1 MODULE = XS::APItest PACKAGE = XS::APItest::numeric 2 3 void 4 grok_number(number) 5 SV *number 6 PREINIT: 7 STRLEN len; 8 const char *pv = SvPV(number, len); 9 UV value; 10 int result; 11 PPCODE: 12 EXTEND(SP,2); 13 result = grok_number(pv, len, &value); 14 PUSHs(sv_2mortal(newSViv(result))); 15 if (result & IS_NUMBER_IN_UV) 16 PUSHs(sv_2mortal(newSVuv(value))); 17