Registrierung bei TBI

TBI.pm

my %tables = (); sub register { my ($self, $name, $package, $params) = @_; unless (defined($tables{$name})) { $tables{$name} = {}; } $tables{$name}->{'package'} = $package; $tables{$name}->{'params'} = $params; }

In der globalen Variable %tables verwaltet TBI alle bekannten Tabellen:

handle Zeiger auf das Tabellen-Objekt, falls es bereits eröffnet worden ist.

package Das Modul, das für diese Tabelle zuständig ist.

params Die Parameter, die für das Eröffnen der Tabelle notwendig sind.

Die Methode register erlaubt es, Tabellen bekannt zu machen, ohne sie bereits eröffnen zu müssen (was nur unnötig Ressourcen kosten würde).