gistfile1.txt

use NativeCall;

constant clock_t = int64;

class tms is repr('CStruct') {
    has clock_t $.user-time;
    has clock_t $.system-time;
    has clock_t $.children-user-time;
    has clock_t $.children-system-cstime;
}

my sub _times(tms) returns clock_t
    is symbol('times')
    is native {*}

sub times() {
    my tms $buf .= new;
    _times($buf);
    return $buf;
}