use JSON::PP;
use File::stat;
use Time::Piece;
+use List::Util 'uniq';
our $VERSION = '1.03';
}
}
+while (my ($agent, $row) = each %{ $data->{agents} }) {
+ $row->{versions} = [ uniq map { $_->{version} } @{ $row->{version_list} } ];
+}
+
say "# automatically generated by $0";
print '+', pp($data);