File Coverage

blib/lib/Plack/ServerTiming.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	2	2	100.0
subroutine	8	8	100.0
pod	3	3	100.0
total	36	36	100.0

package Plack::ServerTiming;
use strict;
use warnings;

sub new {
    my ($class, $env) = @_;
    return bless {
        env => $env,
    } => $class;
}

sub record_timing {
    my ($self, $name, $field) = @_;
    $field ||= {};

    push @{ $self->{env}->{'psgix.server-timing'} } => [$name, $field];
}

sub guard {
    my $self = shift;
    return Plack::ServerTiming::Guard->new($self->{env}, @_);
}

package # hide from pause
    Plack::ServerTiming::Guard;
use Time::HiRes;

sub new {
    my ($class, $env, $name, $desc) = @_;
    return bless {
        env   => $env,
        start => [Time::HiRes::gettimeofday],
        name  => $name,
        desc  => $desc,
    }, $class;
}

sub DESTROY {
    my $self = shift;
    my $dur = Time::HiRes::tv_interval($self->{start}) * 1000;
    push @{ $self->{env}->{'psgix.server-timing'} } => [$self->{name}, {dur => $dur, desc => $self->{desc}}];
}

1;
__END__