Fixing the json output

SouzaBB · Jan 4, 2024 · ff5b374 · ff5b374
1 parent ffe9b52
commit ff5b374
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/PhenotypeOrthologous.pm b/PhenotypeOrthologous.pm
@@ -162,9 +162,18 @@ sub run {
   } @{$self->get_data($vf->{chr}, $vf_start, $vf_end)};
 
   return $res ? $res->{result} : {} if !$output_format{'json'};
+
+  if ($output_format{'json'}) {
+    my $result = $res->{result};
+
+    my %split_result = map {
+    $_ =~ /Phenotype/ ? ($_ => [split /,\s*/, $result->{$_}]) : ($_ => $result->{$_})
+    } keys %$result;
 
-  return { PhenotypeOrthologous => $res->{result} } if $output_format{'json'};
-
+    return {
+      PhenotypeOrthologous => \%split_result,
+    };
+  }
 }
 
 sub parse_data {