|
![]() ![]() ![]() ![]() ![]() |
sub close { my ($self) = @_; return unless defined $self->{db}; # ... finish statement handles ... 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.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |