if (SvROK(sv) && SvTYPE(sv) == SVt_PVCV)
   warn("sv is a code reference (CV) alright.");