From f885e904ca8ed2982d0f1182100b4e0c86389df3 Mon Sep 17 00:00:00 2001
From: Dylan Hardison <dylan@mozilla.com>
Date: Wed, 27 Apr 2016 11:14:06 -0400
Subject: Bug 1225214 - Implement very simple request time logging

---
 mod_perl.pl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'mod_perl.pl')

diff --git a/mod_perl.pl b/mod_perl.pl
index 15230f615..83784d3fe 100644
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -119,6 +119,7 @@ use strict;
 use base qw(ModPerl::Registry);
 use Bugzilla;
 use Bugzilla::Constants qw(USAGE_MODE_REST);
+use Time::HiRes;
 
 sub handler : method {
     my $class = shift;
@@ -136,7 +137,9 @@ sub handler : method {
     use warnings;
 
     Bugzilla::init_page();
+    my $start = Time::HiRes::time();
     my $result = $class->SUPER::handler(@_);
+    warn "[request_time] ", Bugzilla->cgi->request_uri, " took ", Time::HiRes::time() - $start, " seconds to execute";
 
     # When returning data from the REST api we must only return 200 or 304,
     # which tells Apache not to append its error html documents to the
-- 
cgit v1.2.3-24-g4f1b