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

Question

将 DBIC_TRACE 环境变量设置为 true：

BEGIN { $ENV{DBIC_TRACE} = 1 }

生成非常有用的输出，特别是显示正在执行的 SQL 查询，但 SQL 查询全部在一行中。

有没有办法将它推入某种“sql tidy”例程以更好地格式化它，也许将它分成多行？ 如果做不到这一点，任何人都可以给我一个提示，告诉我需要在代码中添加这样一个钩子吗？ 接受格式错误的 SQL 查询并推出格式良好的查询的最佳工具是什么？

在这种情况下，“良好的格式”只是意味着比“全部都在一行上”更好。 我并不特别关心格式化查询的特定样式

谢谢！

Answer 1

从 DBIx::Class 0.08124 开始，它是内置的。

只需设置 $ENV{DBIC_TRACE_PROFILE} 到 console 或 console_monochrome。

Answer 2

来自 DBIx::Class::Storage 的文档

如果设置了 DBIC_TRACE，则会生成跟踪信息（就像当
已设置调试方法）。

...

debug
导致在 debugobj 上发出跟踪信息
目的。 （如果没有专门设置 debugobj，则为 STDERR）。

debugobj
设置或检索用于度量收集的对象。
默认为 DBIx::Class::Storage::Statistics 的实例，即
与使用 coderef 作为回调的原始方法兼容。
有关详细信息，请参阅前面提到的统计类。

换句话说，您应该将该类中的 debugobj 设置为子类 DBIx::Class::Storage::Statistics。 在您的子类中，您可以按照您想要的方式重新格式化查询。

Answer 3

首先谢谢各位指点！ 部分答案如下......

到目前为止我得到了什么......首先是一些脚手架：

# Connect to our db through DBIx::Class
my $schema = My::Schema->connect('dbi:SQLite:/home/me/accounts.db');

# See also BEGIN { $ENV{DBIC_TRACE} = 1 }
$schema->storage->debug(1);

# Create an instance of our subclassed (see below)
# DBIx::Class::Storage::Statistics class
my $stats = My::DBIx::Class::Storage::Statistics->new();

# Set the debugobj object on our schema's storage
$schema->storage->debugobj($stats);

My::DBIx::Class::Storage::Statistics 的定义是：

package My::DBIx::Class::Storage::Statistics;

use base qw<DBIx::Class::Storage::Statistics>;
use Data::Dumper qw<Dumper>;
use SQL::Statement;
use SQL::Parser;

sub query_start {
    my ($self, $sql_query, @params) = @_;

    print "The original sql query is\n$sql_query\n\n";

    my $parser = SQL::Parser->new();
    my $stmt   = SQL::Statement->new($sql_query, $parser);
    #printf "%s\n", $stmt->command;

    print "The parameters for this query are:";
    print Dumper \@params;
}

这解决了如何挂钩的问题获取 SQL 查询以供我“美化”。

然后我运行一个查询：

my $rs = $schema->resultset('SomeTable')->search(
    {   
        'email' => $email,
        'others.some_col' => 1,
    },
    { join => 'others' }
);
$rs->count;

但是 SQL::Parser 对 DBIx::Class 生成的 SQL 产生了错误：

The original sql query is
SELECT COUNT( * ) FROM some_table me LEFT JOIN others other_table ON ( others.some_col_id = me.id ) WHERE ( others.some_col_id = ? AND email = ? )

SQL ERROR: Bad table or column name '(others' has chars not alphanumeric or underscore!

SQL ERROR: No equijoin condition in WHERE or ON clause

那么...是否有比 SQL::Parser 更好的解析器来完成这项工作？