1 #define PERL_NO_GET_CONTEXT
7 MODULE = Mouse PACKAGE = Mouse::Util
22 if(!sv_isobject(sv)) {
25 RETVAL = (char*)sv_reftype(SvRV(sv),TRUE);
41 RETVAL = (char*)sv_reftype(SvRV(sv),FALSE);
51 #if (PERL_VERSION < 8) || (PERL_VERSION == 8 && PERL_SUBVERSION <5)
52 if (SvPOK(sv) || SvPOKp(sv)) {
53 RETVAL = looks_like_number(sv);
56 RETVAL = SvFLAGS(sv) & (SVf_NOK|SVp_NOK|SVf_IOK|SVp_IOK);
59 RETVAL = looks_like_number(sv);
72 croak("weak references are not implemented in this release of perl");