in reply to Retrieving start and end line numbers of a subroutine in a Perl file
One way might be via PPI, you should be able to use the find method to locate all PPI::Statement::Subs.