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