/* * Set the fault code * * call-seq: * status.code = 1 * */ void set_code(int code) { $self->fault_code = code; }