$dbh;
}
+sub reset_all {
+ $_->{AutoCommit} || $_->rollback for values %cache;
+}
+
sub clear {
%cache = ();
}
+sub disconnect_all_and_clear {
+ $_->disconnect for values %cache;
+ %cache = ();
+}
+
sub _args2str {
my (@args) = @_;
map { $_ => $options->{$_} }
sort keys %$options; # deterministic order
- join ';', apply { s/([;\\])/\\$1/g } $dbconnect, $dbuser, $dbpasswd, $options_str, $initial_sql;
+ join ';', apply { $_ //= ''; s/([;\\])/\\$1/g } $dbconnect, $dbuser, $dbpasswd, $options_str, $initial_sql;
}
1;