That's a hot tip. Put it in the mojomojo. Even if untested now,
someone will eventually and update it if necessary.
On Feb 29, 2008, at 2:03 PM, Jonathan Rockway wrote:
* On Fri, Feb 29 2008, Dab wrote:
Thank you for your answers
If asked that question is that I make a small application that
takes 3
seconds per request with only one user. It has only 7 tables and uses
a lot of TT.
I forget to use /Template::Stash::XS, (thank /Andy) I will make a
comparison
Rather than guessing, just fire up the profiler (Devel::DProf) and see
what's taking a long time. Then you can speed that part up.
I usually do this:
in Controller::Root:
sub quit :Local { exit(0) if $ENV{MYAPP_EXIT_OK} }
Then:
$ MYAPP_EXIT_OK=1 perl -Ilib -d:DProf script/myapp_server.pl
$ ab -n 1000 http://localhost:3000/slow/page
$ GET http://localhost:3000/quit
$ dprofpp
<listing of slow routines>
An improvement would be to just add this to your Makefile.PL:
sub MY::postamble {
return <<"EOM";
profile:
\tMYAPP_EXIT_OK=1 perl -Ilib -d:DProf script/myapp_server.pl
\tab -n 1000 http://localhost:3000/slow/page
\tGET http://localhost:3000/quit
\tdprofpp
\trm tmon.out # if you want
EOM
}
Then "make profile". Untested.
Regards,
Jonathan Rockway
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/
catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/