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/