Yet Another CPAN Grep

Net-Prometheus-ServerStatusLiteCollector ( S/SL/SLEUNG/Net-Prometheus-ServerStatusLiteCollector-0.02.tar.gz, SLEUNG, 2019; MetaCPAN )

Net-Prometheus-ServerStatusLiteCollector/lib/Net/Prometheus/ServerStatusLiteCollector.pm ( view source; MetaCPAN )

ateTime::Format::ISO8601::Format;
use JSON;
use Net::Prometheus::Types qw(MetricSamples Sample);
use Parallel::Scoreboard;

our $VERSION = "0.02";

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

> $dt_formatter,
        time_zone => 'America/Los_Angeles',
    )->stringify;

    print STDERR $JSON->encode({
        category   => 'Plack',
        middleware => __PACKAGE__,
        level      =>

k scoreboard stats is valid
    my @all_workers = keys %$stats;
    my $pstatus = eval {
        $JSON->decode($stats->{$all_workers[0]} || '{}');
    };
    if (!$pstatus->{ppid} || !$pstatus->{uptim