Sys::Monitor::Lite;
use strict;
use warnings;
use POSIX qw(uname);
use Time::HiRes qw(sleep);
use JSON::PP ();
use Scalar::Util qw(looks_like_number);
our $VERSION = '0.02';
my %COLLECTORS = (
s
s * 1024,
};
}
close $df;
return \%stats;
}
sub to_json {
my ($data, %opts) = @_;
my $encoder = JSON::PP->new->canonical->ascii(0);
if ($opts{pretty}) {
$encod
Lightweight system monitoring toolkit with JSON output
=head1 SYNOPSIS
use Sys::Monitor::Lite qw(collect_all to_json);
print Sys::Monitor::Lite::to_json(Sys::Monitor::Lite::collect_all());
=hea