sub mutator_name_for { my ($class, $column) = @_; return "set_" . $column->accessor; }