如何将DBI子类化以隐藏用户凭据？

Question

我想继承DBI模块，用C代码隐藏connect子程序。例如，我有：

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

我想编写一些调用上述DBI->connect子例程的C代码，并返回Perl中的$dbh句柄。

这可能吗？如果可以，有人可以提供一些例子或指向某些来源吗？

Answer 1

为什么要子类？只需创建一个子！

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

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