|
Lines 191-196
sub store {
Link Here
|
| 191 |
} |
191 |
} |
| 192 |
} |
192 |
} |
| 193 |
|
193 |
|
|
|
194 |
=head3 $object->update(); |
| 195 |
|
| 196 |
A shortcut for set + store in one call. |
| 197 |
|
| 198 |
=cut |
| 199 |
|
| 200 |
sub update { |
| 201 |
my ($self, $values) = @_; |
| 202 |
return $self->set($values)->store(); |
| 203 |
} |
| 204 |
|
| 194 |
=head3 $object->delete(); |
205 |
=head3 $object->delete(); |
| 195 |
|
206 |
|
| 196 |
Removes the object from storage. |
207 |
Removes the object from storage. |
|
Lines 491-497
sub AUTOLOAD {
Link Here
|
| 491 |
} |
502 |
} |
| 492 |
} |
503 |
} |
| 493 |
|
504 |
|
| 494 |
my @known_methods = qw( is_changed id in_storage get_column discard_changes update make_column_dirty ); |
505 |
my @known_methods = qw( is_changed id in_storage get_column discard_changes make_column_dirty ); |
| 495 |
|
506 |
|
| 496 |
Koha::Exceptions::Object::MethodNotCoveredByTests->throw( |
507 |
Koha::Exceptions::Object::MethodNotCoveredByTests->throw( |
| 497 |
error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method), |
508 |
error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method), |
| 498 |
- |
|
|