У меня есть обертка для DBI:
| Код |
...
sub connect {
my ($class, %p) = @_;
my $dbh = DBI->connect(...);
$dbh->do("SET NAMES cp1251");
return bless {dbh => $dbh}, $class;
}
...
|
Она используется несколькими объектами в одном скрипте. Я решил оптимизировать, чтобы использовалось одно соединение на все объекты. Пробовал кэшировать через глобальную переменную и через connect_cached() - результат один: соединение действительно используется одно, но не отрабатывает
| Код |
do("SET NAMES cp1251")
|
Никак не пойму в чем может быть проблема и как ее решить. Заранее спасибо за совет. |