package Bah2;                             
                                          
use lib ".";                              
use Bah;                                  
                                          
use strict;                               
                                          
our @ISA = qw(Bah); # inherits from Bah
                                          
# Create Object class instance            
#my $Object = Object()->new();            
                                          
sub new {                                 
                                          
        my ($class) = @_;                 
        my $self = $class->SUPER::new(@_);
                                          
        $self->{'_bah2'} = 0;             
        return $self;                     
}                                         
                                          
sub printBah2 {                           
        my $self = shift;                 
        print "Bah2\n";                   
}                                         
                                                                                    
1                                         

##</code><code>##

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