如何在 DBIx::Class 中调用 Postgres 函数

Question

我目前正在研究 DBIx::Class，我想知道如何使用 DBIx 在某个数据库模式中调用现有的 Postgres 函数。

我的 DBI 代码：

my $table = $self->{dbh}->quote_identifier(
                    undef,
                    'foo',
                    'myFunction'
                    );

my $sqlst = qq{ SELECT foobar FROM $table($some_data); };

到目前为止我发现的事情是使用从我的 DBIx::Class::Schema 对象中检索到的 dbh 对象调用所述函数：

my $return_data = {};

my $sql = qq{SELECT foobar FROM "foo"."myFunction"($some_data)};

$self->{schema}->storage->dbh_do( sub {
    my ($storage, $dbh) = @_;
    $menu_list = $dbh->selectrow_hashref(
        $sql,
        { slice => {} }
    );
});

还有better/easier解决方案吗？

我也偶然发现了 DBIx::ProcedureCall，但在使用数据库模式时我无法让它工作。

非常感谢任何帮助！

Answer 1

如果你想像这样使用SQL Functions as Table Sources, it should be possible to create a virtual DBIx::Class::ResultSource::View：

package MyApp::Schema::Result::MyFunction;

use base qw/DBIx::Class::Core/;

__PACKAGE__->table_class('DBIx::Class::ResultSource::View');

__PACKAGE__->table('myFunction');
__PACKAGE__->result_source_instance->is_virtual(1);
__PACKAGE__->result_source_instance->view_definition(
    'SELECT foobar FROM "foo"."myFunction"(?)'
);
__PACKAGE__->add_columns(
    'foobar' => {
        data_type => 'varchar',
    },
);

视图可以这样使用：

my $rs = $schema->resultset('MyFunction')->select({}, {
    bind => [ 'arg' ],
});

这将创建一个实际上不需要的子查询：

SELECT me.foobar FROM (SELECT foobar FROM "foo"."myFunction"(?)) me

不过我觉得应该可以。

如何在 DBIx::Class 中调用 Postgres 函数

How to call Postgres function in DBIx::Class

perl

postgresql

dbix-class