oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added PerlSetVar whatToProfile support

Browse source
This commit is contained in:
Len Kranendonk 2006-02-03 22:17:24 +00:00
parent 62258d0d89
commit 289ff55c99
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/PerformanceProfiler.pm
View file

@ -46,6 +46,11 @@ PerlOutputFilterHandler WebGUI::PerformanceProfiler
To the apache configuration. To the apache configuration.
By default all preloaded WebGUI code will get profiled.
You can limit the profiling to specific modules like this:
PerlSetVar whatToProfile WebGUI::Asset::Wobject
=cut =cut
use strict; use strict;
@ -61,7 +66,6 @@ use ModPerl::Util;
my @subTimes = (); my @subTimes = ();
my $depth = 0; my $depth = 0;
my %pointer; my %pointer;
my $whatToProfile = 'WebGUI';
sub handler { sub handler {
my $r = shift; my $r = shift;
@ -74,7 +78,10 @@ sub handler {
} }
sub addProfilerCode { sub addProfilerCode {
my $r = shift; my $r = shift;
my $s = Apache2::ServerUtil->server;
my $whatToProfile = $s->dir_config('WhatToProfile') || 'WebGUI';
my %subs = findSubs($whatToProfile); my %subs = findSubs($whatToProfile);
my $myself = __PACKAGE__; my $myself = __PACKAGE__;
while(my($name, $ref) = each(%subs)) { while(my($name, $ref) = each(%subs)) {