}
sub reset_all {
- $_->rollback for values %cache;
+ $_->{AutoCommit} || $_->rollback for values %cache;
}
sub clear {
%cache = ();
}
+sub disconnect_all_and_clear {
+ $_->disconnect for values %cache;
+ %cache = ();
+}
+
sub _args2str {
my (@args) = @_;