File Coverage

blib/lib/Plack/Middleware/ServerStatus/Tiny.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	5	6	83.3
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	46	47	97.8

use strict;
use warnings;
package Plack::Middleware::ServerStatus::Tiny;
{
  $Plack::Middleware::ServerStatus::Tiny::VERSION = '0.002';
}
# git description: v0.001-4-geb5f2f5

BEGIN {
  $Plack::Middleware::ServerStatus::Tiny::AUTHORITY = 'cpan:ETHER';
}
# ABSTRACT: tiny middleware for providing server status information

use parent 'Plack::Middleware';
use Plack::Util::Accessor qw(path _uptime _access_count);
use Plack::Response;

sub prepare_app
{
    my $self = shift;

    die 'missing required option: \'path\'' if not $self->path;
    warn 'path "' . $self->path . '" does not begin with /, and will never match' if $self->path !~ m{^/};

    $self->_uptime(time);
    $self->_access_count(0);
}

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

    $self->_access_count($self->_access_count + 1);

    if ($env->{PATH_INFO} eq $self->path)
    {
        my $content = 'uptime: ' . (time - $self->_uptime)
            . '; access count: ' . $self->_access_count;

        my $res = Plack::Response->new('200');
        $res->content_type('text/plain');
        $res->content_length(length $content);
        $res->body($content);
        return $res->finalize;
    }

    $self->app->($env);
}

1;

__END__