とりあえずSELECT時のSQLっぷりをみたいだけなので、
use base qw(Class::DBI); . . . __PACKAGE__->add_trigger( select => sub { my $self = shift; $self->db_Main->trace(1); }, );
これで DBI->traceな感じで。
お名前
メールアドレス
ホームページ・ブログサイトのURL
コメント本文
※コメントのフォーム内で以下のタグがご利用いただけます<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>
こんにちは。株式会社ありんくでは ・Webアプリケーションの開発・運用 ・ネットメディア・ネットサービスの企画、提案 ・サーバ・ネットワークの設計、構築 ・システム、企画面でのコンサルなどを行っています。 主にPerlとjQueryを使ったアプリケーションの開発を得意としています。詳細はこちらをご覧下さい。