$row_obj->set_field("foo"); $row_obj->get_field(); # instead of $row_obj->field("foo"); $row->obj_field(); #### sub mutator_name_for { my ($class, $column) = @_; return "set_" . $column->accessor; }