Author: timbo
Date: Wed May 28 13:21:26 2008
New Revision: 11342
Modified:
dbi/trunk/lib/DBI/Gofer/Execute.pm
Log:
Store request/response object refs in recent buffer if frozen ones aren't
available.
Modified: dbi/trunk/lib/DBI/Gofer/Execute.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Execute.pm (original)
+++ dbi/trunk/lib/DBI/Gofer/Execute.pm Wed May 28 13:21:26 2008
@@ -657,6 +657,10 @@
duration => dbi_time()-$time_received,
($meta) ? (meta => $meta) : (), # for any other info
};
+ $recent->{request_object} = $request
+ if !$frozen_request && $request;
+ $recent->{response_object} = $response
+ if !$frozen_response && $response;
my @queues = ($stats->{recent_requests} ||= []);
push @queues, ($stats->{recent_errors} ||= []) if $response->err;
for my $queue (@queues) {
