File Coverage

blib/lib/Plack/Middleware/Runtime.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	32	33	96.9

package Plack::Middleware::Runtime;
use strict;
use parent qw(Plack::Middleware);
use Plack::Util;
use Plack::Util::Accessor qw(header_name);
use Time::HiRes;

sub call {
    my($self, $env) = @_;

    my $start = [ Time::HiRes::gettimeofday ];
    my $res = $self->app->($env);
    my $header = $self->header_name || 'X-Runtime';

    $self->response_cb($res, sub {
        my $res = shift;
        my $req_time = sprintf '%.6f', Time::HiRes::tv_interval($start);
        Plack::Util::header_set($res->[1], $header, $req_time);
    });
}

1;

__END__