Initialisierungs-Sequenzen

TBI.pm

sub new { my $package = shift; my $self = bless {closed => 0}, $package; $self->initialize1(@_); $self->initialize2(); my $name = $self->name(); if (defined($tables{$name})) { $tables{$name}->{handle} = $self; } else { $tables{$name} = {handle => $self}; } return $self; }

Es ist üblich, den Konstruktor (also die Operation, die in Perl das Objekt anlegt und bless aufruft), von der eigentlichen Initialisierung zu trennen.

Bei TBI sind zwei Initialisierungs-Sequenzen vorgesehen:

initialize1 initialisiert alle (interessierten) Parteien in der Ableitungskette -- beginnend mit dem Basismodul und abschließend mit dem am weitesten abgeleiteten Modul.

Die zweite Sequenz auf Basis von initialize2 durchläuft gleichfalls alle interessierten Parteien, jedoch diesmal beginnend mit dem am weitesten abgeleiteten Modul und endend mit dem Basismodul.