dbix-class

5热度

2回答

使用DBIx::Class，我有一个结果集需要过滤不能由SQL生成的数据。我需要做的是什么实际上等同于这个假设的例子： my $resultset = $schema->resultset('Service')->search(\%search); my $new_resultset = $resultset->filter(sub { my $web_service = shift

17热度

3回答

我可以漂亮地打印DBIx :: Class中的DBIC_TRACE输出吗？

的DBIC_TRACE环境变量设置为true： BEGIN { $ENV{DBIC_TRACE} = 1 } 产生非常有用的输出，尤其是显示出正在执行的SQL查询，但SQL查询是所有在一行。有没有办法推动它通过某种“SQL tidy”例程来更好地格式化它，也许把它分解成多行？如果没有，那么是否有人能够推动我在需要破解的代码中添加这样一个钩子？最好的工具是接受格式不正确的SQL查询并推出格式良

2热度

3回答

MySql：事务不检测死锁？

考虑下面的Perl代码： $schema->txn_begin(); my $r = $schema->resultset('test1')->find({id=>20}); my $n = $r->num; $r->num($n+1); print("updating for $$\n"); $r->update(); print("$$ val: ".$r->num."\n"

1热度

1回答

DBIx ::类结果类别和实际表

我学习DBIx类和我有点困惑，因为我与数据库的交互至今一直在PHP代码普通的SQL查询。反正，按照我的理解，这个类与结果类中定义的，而不是直接与数据库交互的模式运行。该模式可以通过各种.pm类手动构建，也可以通过Loader类从数据库中提取。我的问题是：对此的首选方法是什么？如果我手动构建结果类然后更改我的数据库会怎么样？我想我必须编辑表格和类，是不是有点不切实际？感谢

4热度

2回答

我如何有一个持久的DBIx ::类的CGI ::应用程序使用的mod_perl？

我使用CGI ::应用与DBIx ::类的mod_perl，我想有一些像新的定义上实例化一个新的DBIC架构。到目前为止，我还没有能够得到它的工作。我所接触到的最接近的是具有返回新对象的connect（）方法的超类，但我宁愿它已经被连接并实例化。我会很感激的任何想法都没有。谢谢！注意：好的，所以显然没有帮助，但是，在此期间，我做了一个访问器，懒惰地实例化DBIx :: Class，所以这可能

3热度

2回答

选择

类我有以下DBIx ::类代码： my $where = 'me.loginid = ? AND me.code = ?'; my @bind = ($loginID, $code); my $tip_signals = $bom_schema->resultset('Table1')->search_literal( $where, @bind, { join

10热度

4回答

在使用Template Toolkit的Catalyst项目中显示DBIx :: Class ResultSet的正确方法是什么？

给定DBIx ::类的结果集，例如： my $rs = $c->model("DB::Card")->search({family_name => "Smith"}); 教程我读过使用藏传行的数组引用： $c->stash->{cards} = [$rs->all]; 这将导致查询得到执行在这一点上，并将得到的物体塞到藏匿，这样他们就可以在TemplateToolkit作为： [% FOR

1热度

1回答

如何在DBIx :: Class中使用DBD :: Proxy？

我需要通过防火墙获得数据库连接，并限制可以运行的查询。 DBD :: Proxy似乎是完美的解决方案。但是，我目前使用DBIx :: Class，并不知道如何将它们连接在一起。特别是，DBD :: Proxy不采用SQL;它需要特定的命名查询。但是DBIx :: Class似乎没有办法调用这些命名查询。这是基于Catalyst的web应用程序。

1热度

2回答

右手侧MySQL函数在DBIx ::

类在DBIx ::类，当我使用此语法生成的查询： ... 'Time(submitted_at)' => { '>' => 'Time(Now()-Interval ' . $wait_period . ' minute)' } ... 生成的查询是除了事实完美该函数上右边是引号。 ... AND (Time(submitted_at) > 'Time(Now()-Interval 5

5热度

3回答

如何在Perl中干净地提取MySQL枚举值？

我有一些代码需要确保一些数据在插入到数据库之前在mysql枚举中。我发现这样做的最彻底的方法是将下面的代码： sub enum_values { my ($self, $schema, $table, $column) = @_; # don't eval to let the error bubble up my $columns = $schema->stora