Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 15 lines (9 sloc) 360 Bytes
#!/usr/bin/perl
use warnings;
use strict;
package live;
#ABSTRACT: Acme::System test code showing live results really are live
use Acme::System;
print "Sum of all system PID's: " . Acme::System::pidsum() . "\n";
print "Current CPU user time: " . Acme::System::vmstat_col("us") . "\n";
print "Current Free Mem: " . Acme::System::vmstat_col("free") . "\n";