Schließen von Tabellen II

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

TBD/DBI.pm
sub close {
   my ($self) = @_;

   return unless defined $self->{'db'};

   foreach my $handle (qw(select_byKey select_keys
         insert delete)) {
      $self->{$handle}->finish;
   }

   undef $self->{'db'};
   my $key = $self->{'key'};
   if (--$connections{$key}->{'refs'} == 0) {
      $connections{$key}->{'handle'}->disconnect;
      delete $connections{$key};
   }
   $self->SUPER::close();
}

*Bei TBD::DBI ist beim Schließen die Verwaltung der Verbindungen zu aktualisieren.
 
*Wenn der Zähler auf 0 sinkt, dann wird die Verbindung zur Datenbank geschlossen und der entsprechende Eintrag aus %connections entfernt.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000