#!/usr/bin/perl     

use strict;
use warnings;

my $class = shift;

eval "use $class";
die $@ if $@;
    
# First, find all the classes, and the ones it inherits.
my %classes = ($class => 1);
my @classes = ($class);
     
while (@classes) {
    my $class = pop @classes;
    no strict 'refs';
    foreach my $class (@{"$class\::ISA"}) {
        next if $classes {$class} ++;
        push @classes => $class;
    }
}

# Then find the subs in those classes.
while (my $class = each %classes) {
    no strict 'refs';
    print "From class '$class':\n";
    while (my $entry = each %{"$class\::"}) {
        print "\t$entry\n" if defined &{"$class\::$entry"};
    }
}   
__END__