Bug 13799: RESTful API with Mojolicious and Swagger2

[koha.git] / Koha / Object.pm

diff --git a/Koha/Object.pm b/Koha/Object.pm
index 93fdbe0..34776a1 100644 (file)
--- a/Koha/Object.pm
+++ b/Koha/Object.pm
@@ -207,6 +207,18 @@ sub id {
     return $id;
 }
 
+=head3 $object->unblessed();
+
+Returns an unblessed representation of object.
+
+=cut
+
+sub unblessed {
+    my ($self) = @_;
+
+    return { $self->_result->get_columns };
+}
+
 =head3 $object->_result();
 
 Returns the internal DBIC Row object