Class::DBIでもDBIをトレース

Perl

Class::DBIでもどんな風にSQLが実行されるかなどを見るには、

DBI->trace

を使います。
例えばこんなの



#! /usr/bin/perl

use strict;

use warnings;

use Data::Dumper;

use Neko::OrderCust;

$\ = "\n";

DBI->trace(5 => "./logfile");

my $order = Neko::OrderCust->retrieve(1);

print Dumper($order);

print $order->no;

print $order->name;

for my $item ($order->items) {

    print $item->no;

    print $item->no_sub;

    print $item->item_no;

    print $item->item_no->item_no;

    print $item->item_no->item_name;

}

こうするとlogfileにトレースログが出力されます。
ログレベルなどについては下記を見て下さい。

http://search.cpan.org/~timb/DBI/DBI.pm#TRACING