Как я могу создать подкласс DBI, чтобы скрыть учетные данные пользователя?

Question

Я хочу подкласс DBI модуль для скрытия connect подпрограмма с кодом C. Например, у меня есть:

$dbh = DBI->connect($data_source, $username, $auth, \%attr);

Я хочу написать код C, который вызывает выше DBI->connect подпрограмма и возвращает $dbh обрабатывать в Perl.

Возможно ли это сделать, и если да, может ли кто-нибудь привести пример или указать на некоторые источники?

Answer 1

Почему подкласс? Просто создайте саб!

sub my_connect {
   # Get from config file or whatever
   my $user   = ...;
   my $passwd = ...;

   return DBI->connect($data_source, $username, $auth, \%attr);
}