Yet Another CPAN Grep

Mojolicious-Plugin-ServerStatus ( F/FU/FUKAI/Mojolicious-Plugin-ServerStatus-0.04.tar.gz, FUKAI, 2016; MetaCPAN )

Mojolicious-Plugin-ServerStatus/lib/Mojolicious/Plugin/ServerStatus.pm ( view source; MetaCPAN )

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

our $VERSION = '0.04';

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

has conf => sub { +{} };
has skip_ps

  if ( ($env->{QUERY_STRING} || $req->url->query->to_string ||'') =~ m!\bjson\b!i ) {
                return $self->render(json => $status)
            }
            return  $self->render(text => $bod

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