Class::MethodMaker and Class:Struct can be used to automatically create class templates. That is you specify a set of parameters and they create the constructor, accessors and init methods for you. You might find Chapter 8 of OO Perl by Damien Conway 'Automating class creation' helpful. Once you have the list of files using File:find as suggested it sounds like you could just extract the subroutine name you need from the files a regex.

my @subnames;
#open this source file
open FILE, '/perlsource.pl/';
while (<FILE>) {
    #if sub name push onto array of sub names
    if ($_=~/sub\s+(\S+)\s+\{/) {
        push @subnames, $1;  
    }
}
close FILE;
[download]