Tôi có thể in đẹp DBIC_TRACE đầu ra trong DBIx :: Class không?

Question

Thiết lập biến môi trường DBIC_TRACE true:

BEGIN { $ENV{DBIC_TRACE} = 1 } 

tạo ra rất hữu ích, đặc biệt là thể hiện các truy vấn SQL đang được thực hiện, nhưng truy vấn SQL là trên cùng một dòng.

Có cách nào để đẩy nó thông qua một số loại "sql gọn gàng" thường xuyên để định dạng nó tốt hơn, có lẽ phá vỡ nó lên trên nhiều dòng? Không có điều đó, bất cứ ai có thể cho tôi một nudge vào nơi trong mã tôi cần phải hack để thêm một móc như vậy? Và công cụ nào tốt nhất là chấp nhận truy vấn SQL được định dạng sai và đẩy ra một truy vấn được định dạng tốt?

"định dạng đẹp" trong ngữ cảnh này đơn giản có nghĩa là tốt hơn "tất cả trên một dòng". Tôi không đặc biệt lo lắng về các kiểu truy vấn định dạng cụ thể

Cảm ơn!

Answer 1

As of DBIx::Class 0.08124 it's built in.

Chỉ cần thiết lập $ENV{DBIC_TRACE_PROFILE} để console hoặc console_monochrome.

Answer 2

Từ các tài liệu của DBIx :: Class :: lưu trữ

Nếu DBIC_TRACE được thiết lập sau đó theo dõi thông tin được sản xuất (như khi các phương pháp debug được thiết lập).

...

gỡ lỗi
Gây ra thông tin theo dõi được phát ra trên đối tượng debugobj . (hoặc STDERR nếu debugobj chưa được thiết lập cụ thể).

debugobj
Đặt hoặc truy lục đối tượng được sử dụng để thu thập số liệu. Mặc định cho một thể hiện của DBIx :: Class :: Storage :: Thống kê là tương thích với phương pháp gốc sử dụng một coderef như một cuộc gọi lại. Xem lớp Thống kê nói trên để biết thêm thông tin.

Nói cách khác, bạn nên đặt debugobj trong lớp đó thành đối tượng phân lớp DBIx::Class::Storage::Statistics. Trong lớp con của bạn, bạn có thể định dạng lại truy vấn theo cách bạn muốn.

Answer 3

Đầu tiên, cảm ơn các con trỏ! Câu trả lời một phần sau ....

Những gì tôi đã có cho đến nay ... đầu tiên một số giàn giáo:

# 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); 

Và định nghĩa của :: DBIx :: Class :: lưu trữ :: thống kê My là :

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; 
} 

Điều này giải quyết được vấn đề về cách móc vào để truy vấn SQL cho tôi "khá-ify".

Sau đó, tôi chạy một truy vấn:

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

Tuy nhiên SQL :: Parser barfs trên SQL được tạo ra bởi DBIx :: Class:

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 

Vì vậy, ... là có một phân tích cú pháp tốt hơn SQL :: Trình phân tích cú pháp cho công việc?