DBIC_TRACE=1のときに発行されるsqlにどこで発行されたクエリか追記する - IMAKADO::BLOG

DBIC_TRACE=1のときに発行されるsqlにどこで発行されたクエリか追記する - IMAKADO::BLOG

package DBIx::Class::Storage::Statistics::Caller; use strict; use warnings; use base qw/ DBIx::Cl...概要を表示 package DBIx::Class::Storage::Statistics::Caller; use strict; use warnings; use base qw/ DBIx::Class::Storage::Statistics /; sub query_start { my ($self, $string, @bind) = @_; my $caller_sub_name = $self->_get_non_dbic_caller; my $message = "[$caller_sub_name] $string: ".join(', ', @bind)."\n"; if(defined($self->callback)) { $string =~ m/^(\w+)/; $self->callback->($1, $message); return; } $self->p

• dbic
• perl