Освен ако не планирате да откажете Apache::DBI, отговорът е твърдо не, защото Замяна на Apache::DBI наистина не прави нищо:
# overload disconnect
{
package Apache::DBI::db;
no strict;
@ISA=qw(DBI::db);
use strict;
sub disconnect {
my $prefix = "$$ Apache::DBI ";
Apache::DBI::debug(2, "$prefix disconnect (overloaded)");
1;
}
;
}