[Jifty-commit] r4999 - in jifty/trunk: lib/Jifty/Plugin

Jifty commits jifty-commit at lists.jifty.org
Tue Feb 5 14:03:49 EST 2008


Author: sartak
Date: Tue Feb  5 14:03:48 2008
New Revision: 4999

Modified:
   jifty/trunk/   (props changed)
   jifty/trunk/lib/Jifty/Plugin/SQLQueries.pm

Log:
 r51369 at onn:  sartak | 2008-02-05 14:03:22 -0500
 SQLQueries: Log queries as soon as they're made, instead of after the request


Modified: jifty/trunk/lib/Jifty/Plugin/SQLQueries.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Plugin/SQLQueries.pm	(original)
+++ jifty/trunk/lib/Jifty/Plugin/SQLQueries.pm	Tue Feb  5 14:03:48 2008
@@ -75,7 +75,14 @@
     require Carp;
 
     Jifty->handle->log_sql_statements(1);
-    Jifty->handle->log_sql_hook(SQLQueryPlugin => sub { Carp::longmess });
+    Jifty->handle->log_sql_hook(SQLQueryPlugin => sub {
+        my ($time, $statement, $bindings, $duration) = @_;
+        Jifty->log->debug(sprintf 'Query (%.3fs): "%s", with bindings: %s',
+                            $duration,
+                            $statement,
+                            join ', ', @$bindings);
+        return Carp::longmess;
+    });
 }
 
 =head2 before_request
@@ -107,10 +114,6 @@
     for (@log) {
         my ($time, $statement, $bindings, $duration, $results) = @$_;
 
-        Jifty->log->debug(sprintf 'Query (%.3fs): "%s", with bindings: %s',
-                            $duration,
-                            $statement,
-                            join ', ', @$bindings);
         $total_time += $duration;
 
         # keep track of the ten slowest queries so far


More information about the Jifty-commit mailing list