diff options
Diffstat (limited to 'lib/LXRng/ModPerl.pm')
| -rw-r--r-- | lib/LXRng/ModPerl.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/LXRng/ModPerl.pm b/lib/LXRng/ModPerl.pm index e5e6f63..1249cb0 100644 --- a/lib/LXRng/ModPerl.pm +++ b/lib/LXRng/ModPerl.pm @@ -31,8 +31,15 @@ use Data::Dumper; sub handler { my ($req) = @_; - my $query = CGI->new(); - LXRng::Web->handle($query); + my @tstart = times(); + my $query = CGI->new(); + my $qident = LXRng::Web->handle($query); + my @tstop = times(); + + $req->notes->add("lxr_prof" => + sprintf("u:%d, s:%d, cu:%d, cs:%d", + map { 1000*($tstop[$_]-$tstart[$_]) } (0 .. 3))); + $req->notes->add("lxr_ident" => $qident); return Apache2::Const::OK; } |