Yet Another CPAN Grep

Plack-Middleware-ServerStatus-Lite ( K/KA/KAZEBURO/Plack-Middleware-ServerStatus-Lite-0.36.tar.gz, KAZEBURO, 2016; MetaCPAN )

Plack-Middleware-ServerStatus-Lite/lib/Plack/Middleware/ServerStatus/Lite.pm ( view source; MetaCPAN )

::Scoreboard;
use Net::CIDR::Lite;
use Try::Tiny;
use JSON;
use Fcntl qw(:DEFAULT :flock);
use IO::Handle;

our $VERSION = '0.36';

my $JSON = JSON->new->utf8(0);

sub prepare_app {
    my $self = shi

SERVER_PROTOCOL},
            time => time(),
        };
    }
    $self->{__scoreboard}->update($JSON->encode({
        %{$prev},
        pid => $$,
        ppid => getppid(),
        uptime => $self

      for my $pid ( @all_workers  ) {
            my $json = $stats->{$pid};
            my $pstatus = eval { 
                $JSON->decode($json || '{}');
            };
            $pstatus ||= {};