有没有办法使用现有的 DBI 数据库句柄连接到 DBIx::Class 模式?

Is there a way to connect to a DBIx::Class schema using an existing DBI database handle?

如果我已经有一个活动的 DBI 数据库句柄,有没有办法使用该数据库句柄实例化一个 DBIx::Class 模式,而不是创建一个新的连接,例如像

my $schema = MyApp::Schema->connect($dbh);

(这是因为一些遗留代码使用了一些较新的基于 DBIC 的代码。不,我无法连接到模式并将模式的数据库句柄传递给遗留代码,不,我无法重写使用 DBIC 的遗留代码。)

我认为这会奏效

my $schema = MyApp::Schema->connect(sub { $dbh });

来自 perldoc DBIx::Class::Storage::DBI