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

Logging fallback

Browse source
This commit is contained in:
Patrick Donelan 2010-04-13 17:27:18 -04:00
parent 42c1a8e149
commit 7ef963e74f
5 changed files with 33 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
benchmark.pl
View file

@ -1,17 +1,19 @@
# Little script used to run benchmarks against dev.localhost.localdomain
#
# To profile, run "perl -d:NYTProf benchmark.pl"
use Devel::Leak::Object qw(GLOBAL_bless);
$Devel::Leak::Object::TRACKSOURCELINES = 1;
use lib '/data/WebGUI/lib';
use WebGUI;
use Plack::Test;
use Plack::Builder;
use HTTP::Request::Common;
my $wg = WebGUI->new( root => '/data/WebGUI', site => 'dev.localhost.localdomain.conf' );
my $app = $wg->psgi_app;
my $app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config;
$wg;
};
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->( GET "/" );
} for 1..100;
$cb->( GET "/" ) for 1..1000;
};