tokuhirom's Blog

DBD::mysql does not supports disconnect_all

$_->disconnect for grep { UNIVERSAL::isa($_, 'DBI::db') } @{ +{DBI->installed_drivers()}->{mysql}->{ChildHandles} };

works.