[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