@@ -, +, @@ --- Koha/Object.pm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) --- a/Koha/Object.pm +++ a/Koha/Object.pm @@ -186,6 +186,17 @@ sub store { } } +=head3 $object->update(); + +A shortcut for set + store in one call. + +=cut + +sub update { + my ($self, $values) = @_; + return $self->set($values)->store();; +} + =head3 $object->delete(); Removes the object from storage. @@ -452,7 +463,7 @@ sub AUTOLOAD { } } - my @known_methods = qw( is_changed id in_storage get_column discard_changes update make_column_dirty ); + my @known_methods = qw( is_changed id in_storage get_column discard_changes make_column_dirty ); Koha::Exceptions::Object::MethodNotCoveredByTests->throw( error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method), --