+for my $feature (values %{ $data->{data} }) {
+ while (my ($attr, $row) = each %{$feature}) {
+ delete $feature->{$attr} if ref $row eq '' and $row eq '';
+ }
+}
+
+while (my ($agent, $row) = each %{ $data->{agents} }) {
+ $row->{versions} = [ uniq map { $_->{version} } @{ $row->{version_list} } ];
+}
+