char *
reftype(sv)
    SV * sv
PROTOTYPE: $
CODE:
{
    if (SvMAGICAL(sv))
	mg_get(sv);
    if(!SvROK(sv)) {
	XSRETURN_UNDEF;
    }
    RETVAL = sv_reftype(SvRV(sv),FALSE);
}
OUTPUT:
    RETVAL

##</code><code>##

char *
reftype(sv)
    SV * sv
PROTOTYPE: $
CODE:
{
    if (SvMAGICAL(sv))
	mg_get(sv);
    if(!SvROK(sv)) {
	XSRETURN_NO;
    } else {
        RETVAL = sv_reftype(SvRV(sv),FALSE);
    }
}
OUTPUT:
    RETVAL

##</code><code>##

if (_reftype($foo) eq $TYPE) { ... }

##</code><code>##

use Data::Dump::Streamer qw(reftype);