DBICデバッグ時にでるBindの値が変なのを直すパッチ
パッチに間違いがあったのでなおしました
Index: DBI.pm =================================================================== --- DBI.pm (revision 19922) +++ DBI.pm (working copy) @@ -867,8 +867,14 @@ my ($sql, $bind) = $self->_prep_for_execute($op, $extra_bind, $ident, \@args); if ($self->debug) { - my @debug_bind = - map { defined ($_ && $_->[1]) ? qq{'$_->[1]'} : q{'NULL'} } @$bind; + my @debug_bind; + for my $col (@{$bind}) { + if( scalar(@{$col}) == 1 ) { + push @debug_bind , q{'NULL'}; + } else { + push @debug_bind , join(', ', @{$col}[1..scalar(@{$col})-1]); + } + } $self->debugobj->query_start($sql, @debug_bind); }
例えば
$rs = $self->model('Hoge')->search( { created_on => { -between => [$start->ymd , $end->ymd] } } );
こんな感じで実行した場合BetweenのBindの部分が先頭の部分しかでないのでなおしてみた
AdHook!
ワッサーたのしいよー
位置情報とかもはじまったよー
http://wassr.jp/