sub reftype {
    require overload;
    local $_ = overload::AddrRef(shift);
    return /=(\w+(?:::\w+)*)\(0x[0-9a-f]\)\z/;
}