Devel::Examine::Subs reads into Perl program and module files returning the names of its subroutines, optionally limiting the names returned to subs that contain or do not contain specified text.
SYNOPSIS
use Devel::Examine::Subs;
my $file = 'perl.pl';
my $find = 'function(';
# list of sub names where the sub contains the text "function("
my @has = Devel::Examine::Subs->has({ file => $file, search => $find });
# same as has(), but returns the opposite
my @missing = Devel::Examine::Subs->missing({ file => $file, search => $find });
# get all sub names in a file
my @subs = Devel::Examine::Subs->all({ file => $file });
# There's also an OO interface to save typing if you will be making
# multiple calls
my $des = Devel::Examine::Subs->new();
$des->has(...);
$des->missing(...);
$des->all(...);
Product's homepage
Requirements:
· Perl