Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • Here's how I get CPU times:

    package Stonehenge::Timeit;
    use strict;

    ## usage: PerlInitHandler Stonehenge::Timeit;

    use vars qw($VERSION);
    $VERSION = (qw$Revision: $ )[-1];

    use Apache::Constants qw(OK DECLINED);
    use Apache::File;
    use Apache::Log;

    sub handler {
      ## use Stonehenge::Reload; goto &handler if Stonehenge::Reload->reload_me;

      my $r = shift;
      return DECLINED unless $r->is_initial_req;
      my $log = $r->log;        # closure
      my $uri = $r-

    • Randal L. Schwartz
    • Stonehenge
  • CAAN (Score:2, Informative)

    Now if only there was an CAAN to upload this to...

    Check out
    • Wow, that's really hard to find from I completely missed it looking at Also, 316 modules and no index is a bit annoying. But yes, all this ranting is because I had been able to find it then I would have used mod_chronometer []...