Select Code to Download

Select or download this

    106     my @tempArray = @{$this->{'entityhash'}->{$entity}};
    107     for (my $index; $index < @tempArray; $index++)
...
    142             splice(@{$this->{'entityhash'}->{$entity}}, $index
+, 1);
    143         }
    144     }

Select or download this

@{ $this->{ entityhash }{ $entity } } = grep $_ != $entityId, @{ $this
+->{ entityhash }{ $entity } };

Select or download this

      6 # Constructor
      7 sub new
...
     14     $self->{'entitypool'} = ();
     15     bless($self, 'AssocDB');
     16 }

Select or download this

# Constructor
sub new
...
    bless($self, 'AssocDB');
}

Select or download this

     28         if (!exists($this->{'entityhash'}->{$entity}))
     29         {
...
     69         {
     70             $this->{'entityhash'}->{$entity} = ();
     71         }