package Plack::Middleware::NYTProf;
use strict;
use base qw(Plack::Middleware);
BEGIN { $ENV{NYTPROF} = "start=no" }
use Devel::NYTProf;
use Time::HiRes qw(gettimeofday);
 
sub call {
    my $self = shift;
 
    my $t = gettimeofday;
    my $nytprof = "nytprof.$t";
    DB::enable_profile($nytprof);
    my $res = $self->app->(@_);
    DB::finish_profile();
 
    system "nytprofhtml --file $nytprof --open" and warn $?;
 
    return $res;
}
 
1;