MBS-11461: Add TO_JSON to ExampleRelationships

Author: reosarevok

lib/MusicBrainz/Server/Entity/ExampleRelationship.pm

@@ -1,6 +1,9 @@
 package MusicBrainz::Server::Entity::ExampleRelationship;
 use Moose;
 
+use MusicBrainz::Server::Data::Utils qw( boolean_to_json );
+use MusicBrainz::Server::Entity::Util::JSON qw( to_json_object );
+
 has name => (
     isa => 'Str',
     required => 1,
@@ -18,4 +21,14 @@ has relationship => (
     required => 1
 );
 
+sub TO_JSON {
+    my ($self) = @_;
+
+    return {
+        name            => $self->name,
+        published       => boolean_to_json($self->published),
+        relationship    => to_json_object($self->relationship),
+    };
+}
+
 1;

lib/MusicBrainz/Server/Entity/LinkType.pm

@@ -144,7 +144,7 @@ around TO_JSON => sub {
     $json->{cardinality1} = $self->entity1_cardinality;
     $json->{deprecated} = boolean_to_json($self->is_deprecated);
     $json->{documentation} = $self->documentation;
-    $json->{examples} = $self->examples;
+    $json->{examples} = to_json_array($self->examples);
     $json->{has_dates} = boolean_to_json($self->has_dates);
     $json->{id} = $self->id;
     $json->{root_id} = $self->root_id;