r650@llin: dpavlin | 2006-05-14 20:21:30 +0200

[webpac2] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 6ac01ac..68a2301 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -39,6 +39,7 @@ sub MY::postamble {
        return <<'MAKE_MORE';
 
 HTML_DIR=pod2html
+profile_perl=./run.pl
 
 html: $(TO_INST_PM)
        test -e $(HTML_DIR) || mkdir $(HTML_DIR)
@@ -66,5 +67,11 @@ full: config_yml
        rm -f log
        ./run.pl
 
+profile:
+       perl -d:DProf $(profile_perl) --limit 500 && dprofpp > profile.`perl -e 'my @p = glob("profile.[0-9]*"); print scalar @p + 1'`
+
+profile2:
+       perl -d:SmallProf $(profile_perl) --limit 100 && sort -k 2nr,2 smallprof.out | vi -R -
+
 MAKE_MORE
 }