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

Question

我想子类化DBI模块，以隐藏connect子程序与C代码。例如，我有:

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

我想写一些C代码来调用上面的DBI->connect子程序，并在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);
}