Devel::NYTProf::Apache - Profile mod_perl applications with Devel::NYTProf


Devel-NYTProf documentation Contained in the Devel-NYTProf distribution.

Index


Code Index:

NAME

Top

Devel::NYTProf::Apache - Profile mod_perl applications with Devel::NYTProf

SYNOPSIS

Top

  # in your Apache config file with mod_perl installed
  PerlPassEnv NYTPROF
  PerlModule Devel::NYTProf::Apache

If you're using virtual hosts with PerlOptions that include either +Parent or +Clone then see VIRTUAL HOSTS below.

DESCRIPTION

Top

This module allows mod_perl applications to be profiled using Devel::NYTProf.

If the NYTPROF environment variable isn't set at the time Devel::NYTProf::Apache is loaded then Devel::NYTProf::Apache will issue a warning and default it to:

  file=/tmp/nytprof.$$.out

The file actually created by NTProf will also have the process id appended to it because the addpid option is enabled by default.

See "ENVIRONMENT VARIABLES" in Devel::NYTProf for more details on the settings effected by this environment variable. Try using PerlPassEnv so you can set the NYTPROF environment variable externally.

Each profiled mod_perl process will need to have terminated before you can successfully read the profile data file. The simplest approach is to start the httpd, make some requests (e.g., 100 of the same request), then stop it and process the profile data.

Alternatively you could send a TERM signal to the httpd worker process to terminate that one process. The parent httpd process will start up another one for you ready for more profiling.

Example httpd.conf

It's often a good idea to use just one child process when profiling, which you can do by setting the MaxClients to 1 in httpd.conf.

Using an IfDefine blocks lets you leave the profile configuration in place and enable it whenever it's needed by adding -D NYTPROF to the httpd startup command line.

  <IfDefine NYTPROF>
      MaxClients 1
      PerlModule Devel::NYTProf::Apache
  </IfDefine>




VIRTUAL HOSTS

Top

If your httpd configuration includes virtual hosts with PerlOptions that include either +Parent or +Clone then mod_perl2 will create a new perl interpreter to handle requests for that virtual host. This causes some issues for profiling.

If Devel::NYTProf::Apache is loaded in the top-level configuration then activity in any virtual hosts that use their own perl interpreter won't be profiled. Normal virtual hosts will be profiled just fine.

You can profile a single virtual host that uses its own perl interpreter by loading Devel::NYTProf::Apache inside the configuration for that virtual host. In this case do not use PerlModule directive. You need to use a Perl directive instead, like this:

    <VirtualHost *:1234>
        ...
        <Perl> use Devel::NYTProf::Apache; </Perl>
        ...
    </VirtualHost>

LIMITATIONS

Top

Profiling mod_perl on Windows is not supported because NYTProf currently doesn't support threads.

SEE ALSO

Top

Devel::NYTProf

AUTHOR

Top

Adam Kaplan, <akaplan at nytimes.com> Tim Bunce, http://www.tim.bunce.name and http://blog.timbunce.org Steve Peters, <steve at fisharerojo.org>

COPYRIGHT AND LICENSE

Top


Devel-NYTProf documentation Contained in the Devel-NYTProf distribution.

# vim: ts=8 sw=4 expandtab:
##########################################################
# This script is part of the Devel::NYTProf distribution
#
# Copyright, contact and other information can be found
# at the bottom of this file, or by going to:
# http://search.cpan.org/dist/Devel-NYTProf/
#
###########################################################
# $Id: Apache.pm 1253 2010-05-30 08:30:17Z tim.bunce@gmail.com $
###########################################################
package Devel::NYTProf::Apache;

our $VERSION = '4.00';

BEGIN {

    # Load Devel::NYTProf before loading any other modules
    # in order that $^P settings apply to the compilation
    # of those modules.

    if (!$ENV{NYTPROF}) {
        $ENV{NYTPROF} = "file=/tmp/nytprof.$$.out";
        warn "NYTPROF env var not set, so defaulting to NYTPROF='$ENV{NYTPROF}'";
    }

    require Devel::NYTProf::Core;

    DB::set_option("endatexit", 1); # for vhost with PerlOption +Parent
    DB::set_option("addpid", 1);

    require Devel::NYTProf;
}

use strict;

use constant TRACE => ($ENV{NYTPROF} =~ /\b trace = [^0] /x);
use constant MP2   => (exists $ENV{MOD_PERL_API_VERSION} && $ENV{MOD_PERL_API_VERSION} == 2);

# https://rt.cpan.org/Ticket/Display.html?id=42862
die "Threads not supported" if $^O eq 'MSWin32';

# help identify MULTIPLICITY issues
*current_perl_id = (MP2 and eval "require ModPerl::Util")
        ? \&ModPerl::Util::current_perl_id
        : sub { 0+\$$ };

sub trace {
    return unless TRACE;
    warn sprintf "NYTProf %d.%s: %s\n",
        $$, current_perl_id(), shift
}

sub child_init {
    trace("child_init(@_)") if TRACE;
    DB::enable_profile() unless $ENV{NYTPROF} =~ m/\b start = (?: no | end ) \b/x;
}

sub child_exit {
    trace("child_exit(@_)") if TRACE;
    DB::finish_profile();
}

# arrange for the profile to be enabled in each child
# and cleanly finished when the child exits
if (MP2) {

    # For mod_perl2 we rely on profiling being active in the parent
    # and for normal fork detection to detect the new child.
    # We just need to be sure the profile is finished properly
    # and an END block works well for that (if loaded right, see docs)
    # We rely on NYTProf's own END block to finish the profile.
    #trace("adding child_exit hook") if TRACE;
    #eval q{ END { child_exit('END') } 1 } or die;
}
else {
    # the simple steps for mod_perl2 above might also be fine for mod_perl1
    # but I'm not in a position to check right now. Try it out and let me know.
    require Apache;
    if (Apache->can('push_handlers')) {
        Apache->push_handlers(PerlChildInitHandler => \&child_init);
        Apache->push_handlers(PerlChildExitHandler => \&child_exit);
        warn "$$: Apache child handlers installed" if TRACE;
    }
    else {
        Carp::carp("Apache.pm was not loaded");
    }
}

1;

__END__