view release on metacpan or  search on metacpan

LoadAvg.xs  view on Meta::CPAN

MODULE = Sys::LoadAvg		PACKAGE = Sys::LoadAvg		

void
loadavg()
  PROTOTYPE:
  PREINIT:
    double loadavg[2];
    int retval; 
    int i;
  PPCODE:
    retval = getloadavg(loadavg, 3);
    EXTEND(SP, 3);
    for (i=0; i<3; i++) {
        if (i < retval) {
            PUSHs(sv_2mortal(newSVnv(loadavg[i])));
        } else {
            PUSHs(sv_2mortal(newSV(0)));
        }
    }