SV * test (SV * x, char * name) {
     if((CV*)SvRV(x) == get_cv(name, 0)) return newSVuv(1);
     return newSVuv(0);
}