|
![]() ![]() ![]() ![]() ![]() |
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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |