Lines 219-224
sub unblessed {
Link Here
|
219 |
return { $self->_result->get_columns }; |
219 |
return { $self->_result->get_columns }; |
220 |
} |
220 |
} |
221 |
|
221 |
|
|
|
222 |
=head3 $object->get_from_storage; |
223 |
|
224 |
=cut |
225 |
|
226 |
sub get_from_storage { |
227 |
my ( $self, $attrs ) = @_; |
228 |
my $stored_object = $self->_result->get_from_storage($attrs); |
229 |
my $object_class = Koha::Object::_get_object_class( $self->_result->result_class ); |
230 |
return $object_class->_new_from_dbic($stored_object); |
231 |
} |
232 |
|
222 |
=head3 $object->TO_JSON |
233 |
=head3 $object->TO_JSON |
223 |
|
234 |
|
224 |
Returns an unblessed representation of the object, suitable for JSON output. |
235 |
Returns an unblessed representation of the object, suitable for JSON output. |