|
TBI.pm |
sub open { my ($package, $name) = @_; my $table = undef; if (defined($tables{$name})) { unless (defined($table = $tables{$name}->{'handle'})) { $table = $tables{$name}->{'package'}-> new(%{$tables{$name}->{'params'}}); } } return $table; } |
Wenn eine Tabelle eröffnet werden soll, wird von der
Basisabstraktion TBI überprüft,
ob sie bereits offen ist (dann wird der vorhandene Verweis
darauf zurückgeliefert) oder ob sie bekannt ist und daher
frisch eröffnet werden kann.
| |
Bei einer Neu-Eröffnung wird der Konstruktor new
verwendet, der dann die gesamte Initialisierungs-Sequenz
zur Folge hat.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |