Objects = $VAR1 = {                  
          'Bah' => [                 
                     'new',          
                     'printBah'      
                   ],                
          'Object' => [              
                        [            
                          'new',     
                          'toString' 
                        ]            
                      ]              
        };                           

##</code><code>##

		# 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;
			}
		}

##</code><code>##

Objects = $VAR1 = {               
          'Bah' => [              
                     'new',       
                     'printBah'   
                   ],             
          'Object' => [           
                        'new',    
                        'toString'
                      ]           
        };