DBD::mysql does not supports disconnect_all
$_->disconnect for grep { UNIVERSAL::isa($_, 'DBI::db') } @{ +{DBI->installed_drivers()}->{mysql}->{ChildHandles} };
works.
$_->disconnect for grep { UNIVERSAL::isa($_, 'DBI::db') } @{ +{DBI->installed_drivers()}->{mysql}->{ChildHandles} };
works.