Catapulse

L'application Catalyst est construite, elle fonctionne comme je le souhaite ... la vie est belle. Mais alors pourquoi ces temps de réponse ?

Trois secondes par requete ! Insupportable, c'est portant ce qui m'est arrivé :(

Merci à Jonathan Rockway pour l'astuces qui suit:

Dans Root.pm ajouter l'action suivante:

sub quit :Local { exit(0) if $ENV{MYAPP_EXIT_OK} }

Exécuter alors:

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 

Qui nous retourne les routines les plus lentes :)

Dans mon cas il s'agissait d'un nombre impressionnant de requêtes vers la base de données ... application faite à la va vite !

A l'aide de Catalyst::Model::DBIC::Schema::QueryLog j'ai été horrifié de constaté que plus de 2000 requêtes étaient effectuées sur la base pour une simple page.

Pas fier :)

.... ARTICLE APPELé A PRENDRE DE L'EMBONPOINT :) ...