# Keep going up the tree.  
		# Find all the classes this one is a subclass of.
		#
		my @super = @{"${class}::ISA"};
		for $name (@super) {
			# Crawl up the tree and keep trying to crawl up.
			# Then dump the results into the %methods hash
			#
			my $pnewsub  = find_methods();
			my $pmethods = $pnewsub->($name);
			my @m = values(%$pmethods);
			foreach my $val (@{$m[0]}) {
				$methods{$name} ||= [ ];
				push @{$methods{$name}}, $val;
			}
		}