I don't think it's possible without some XS code, but the information appears to be present.
>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)
(Irrelevant bits filtered out)
In reply to Re^5: list all subs in a package
by ikegami
in thread list all subs in a package
by sflitman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |