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

Added benchmark script for NYTProf-ing

Browse source
This commit is contained in:
Patrick Donelan 2010-03-16 23:35:13 -04:00
parent 5d4e0f95d7
commit e15c32e3f7
2 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
benchmark.pl Executable file
View file

@ -0,0 +1,14 @@
# Little script used to run benchmarks against dev.localhost.localdomain
#
# To profile, run "perl -d:NYTProf benchmark.pl"
use lib '/data/WebGUI/lib';
use WebGUI;
use Plack::Test;
use HTTP::Request::Common;
my $app = WebGUI->new( root => '/data/WebGUI', site => 'dev.localhost.localdomain.conf' )->psgi_app;
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->( GET "/" );
} for 1..100;

10
etc/dev.localhost.localdomain.psgi
View file

@ -1,4 +1,12 @@
use lib '/data/WebGUI/lib';
use WebGUI;
my $app = WebGUI->new( root => '/data/WebGUI', site => 'dev.localhost.localdomain.conf' )->psgi_app;
# Some ways to achieve the same thing from the command line:
# plackup -MWebGUI -e 'WebGUI->new'
# plackup -MWebGUI -e 'WebGUI->new("dev.localhost.localdomain.conf")'
# plackup -MWebGUI -e 'WebGUI->new(root => "/data/WebGUI", site => "dev.localhost.localdomain.conf")'
#
# Or from a .psgi file:
# my $app = WebGUI->new( root => '/data/WebGUI', site => 'dev.localhost.localdomain.conf' )->psgi_app;
# Or equivalently (using the defaults):
WebGUI->new;