File Coverage

blib/lib/Plack/Middleware/Debug/Profiler/NYTProf.pm

Criterion	Covered	Total	%
statement	21	59	35.5
branch	0	18	0.0
condition	0	13	0.0
subroutine	7	13	53.8
pod	3	4	75.0
total	31	107	28.9

package Plack::Middleware::Debug::Profiler::NYTProf;
use 5.008;
use strict;
use warnings;

use Plack::Util::Accessor qw(root exclude base_URL minimal no_merge_evals);
use Time::HiRes;
use File::Path qw(make_path);

use parent 'Plack::Middleware::Debug::Base';
our $VERSION = '0.06';

sub prepare_app {
    my $self = shift;
    $self->root($self->root || '/tmp');
    $self->base_URL($self->base_URL || '');
    $self->minimal($self->minimal || '0');
    $self->no_merge_evals($self->no_merge_evals || '0');
    $self->{files} = Plack::App::File->new(root => $self->root);

    unless(-d $self->root){
        make_path($self->root) or die "Cannot create directory " . $self->root;
    }

    # start=begin - start immediately (the default)
    # start=init  - start at beginning of INIT phase (after compilation)
    # start=end   - start at beginning of END phase
    # start=no    - don't automatically start
    $ENV{NYTPROF} ||= "addpid=1:start=begin:file=".$self->root."/nytprof.null.out";
    require Devel::NYTProf::Core;
    require Devel::NYTProf;

    $self->exclude($self->exclude || [qw(.*\.css .*\.png .*\.ico .*\.js)]);
    Carp::croak "exclude not an array" if ref($self->exclude) ne 'ARRAY';
}

sub call {
    my($self, $env) = @_;
    my $panel = $self->default_panel;

    if ($env->{PATH_INFO} =~ m!nytprofhtml!) {
        $env->{'plack.debug.disabled'} = 1;
        return $self->{files}->call($env);
    }

    foreach my $pattern (@{$self->exclude}) {
        if ($env->{PATH_INFO} =~ m!^$pattern$!) {
            return $self->SUPER::call($env);
        }
    }

    # $ENV{NYTPROF}'s addpid=1 will append ".$$" to the file
    DB::enable_profile($self->root."/nytprof.out");

    my $res = $self->SUPER::call($env);
    DB::disable_profile();
    DB::enable_profile($self->root."/nytprof.null.out");
    DB::disable_profile();

    $self->report($env);
    return $res;
}

sub run {
    my($self, $env, $panel) = @_;
    return sub {
        my $res = shift;
        $panel->nav_subtitle(join ', ', 'OK', ( $self->minimal ? 'Minimal' : () ));
        $panel->content('(open in a new window)
           </td>
</tr>

<tr>
<td  class="h" >
<a name="71">71</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           <p>Your browser does not support iframes.</p> </td>
</tr>

<tr>
<td  class="h" >
<a name="72">72</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         ');
    };
}

sub report {
    my ( $self, $env ) = @_;
    if ( -f $self->root . "/nytprof.out.$$" ) {
        system "nytprofhtml"
          , ( $self->minimal ? '--minimal' : () )
          , ( $self->no_merge_evals ? '--no-mergeevals' : () )
          , "-f", $self->root . "/nytprof.out.$$"
          , "-o", $self->root . "/nytprofhtml.$$";
    }
}

sub DESTROY {
    DB::finish_profile();
}

1;
__END__