>perl -MDevel::Peek -e"sub X() { time } Dump \&X"
  SV = PVCV(0x182647c) at 0x1831628
    FLAGS = (POK,pPOK)

>perl -MDevel::Peek -e"sub X() { 1    } Dump \&X"
  SV = PVCV(0x1833acc) at 0x1831688
    FLAGS = (POK,pPOK,CONST)