To make a general purpose lister, replace the last lines (from "use IO::File" to the end) with this:

my $module = shift or die "module name required";
eval "require $module" or die "$@\n";

printFlatClassView($module);
print "\n";

printExpandedClassView($module);
print "\n";
[download]

Then, you can run the script with the module name on the command line.

$ method_lister IO::File
[download]