view release on metacpan or  search on metacpan

lib/Apache2/Instrument.pm  view on Meta::CPAN

package Apache2::Instrument;

use strict;
use warnings;

=head1 NAME

Apache2-Instrument - An instrumentation framework for mod_perl

=head1 SYNOPSIS

In your httpd.conf file:

 PerlInitHandler Apache2::Instrument::Time

To activate instrumentation on a per request basis, add 'instrument'
to the end of your user agent, and add this line to httpd.conf:

 PerlSetVar Apache2-Instrument-Useragent 1

=head1 DESCRIPTION

Five instrumentation handlers are available.

Time outputs the total request time.

Memory outputs a GTop memory profile.

Strace outputs a general purpose strace.

DBI outputs a DBI::Profile dump.

Procview outputs a combination strace and lsof report to a tempfile.

See the source code for details.

=head1 AUTHOR

Phillipe M. Chiasson L<gozer@apache.org>

Version 0.03 released by Fred Moyer L<fred@redhotpenguin.com>

Nick Townsend (github.com/townsen) contributed Procview (https://github.com/townsen/procview)

=head1 LICENCE AND COPYRIGHT

Copyright 2006 Phillipe M. Chiasson

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.

=cut

our $VERSION = '0.03';

use Apache2::Const -compile => qw(OK);
use Apache2::RequestUtil ();
use Apache2::RequestRec  ();
use Apache2::Log         ();
use Data::Dumper;

sub notes {
    my ( $class, $r, $v ) = @_;
    if ( defined $v ) {
        return $r->pnotes( $class, $v );
    }
    else {
        return $r->pnotes( $class ) || {};