|
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:
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |