Schließen von Tabellen II

TBD/DBI.pm

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.

	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.