6 # Constructor
      7 sub new
      8 {
      9     my $self = {};
     10     $self->{'entityhash'} = {};
     11     $self->{'entityarray'} = ();
     12     $self->{'relationshiphash'} = {};
     13     $self->{'predicatearray'} = ();
     14     $self->{'entitypool'} = ();
     15     bless($self, 'AssocDB');
     16 }