File Coverage

blib/lib/Plack/Middleware/TimeOverHTTP.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	30	32	93.7

package Plack::Middleware::TimeOverHTTP;

# ABSTRACT: time over HTTP middleware

use strict;
use warnings;

use parent 'Plack::Middleware';

use HTTP::Status qw/ :constants /;
use Time::HiRes qw/ clock_gettime CLOCK_REALTIME /;

our $VERSION = 'v0.1.0';

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

    unless ( $env->{REQUEST_URI} eq '/.well-known/time' ) {
        return $self->app->($env);
    }

    unless ( $env->{REQUEST_METHOD} eq 'HEAD' ) {
        return [ HTTP_METHOD_NOT_ALLOWED, [], [] ];
    }

    [
        HTTP_NO_CONTENT,
        [
            'X-HTTPSTIME' => clock_gettime(CLOCK_REALTIME),
        ],
        [],
    ];

}

1;

__END__