view release on metacpan or  search on metacpan

script/ap-represent  view on Meta::CPAN

Said output isn't made to be readable by machines, only humans.

=head1 LICENSE

BSD-3-Clause

=cut

undef $/;
# from_json because UTF-8 is already decoded
my $blob = from_json(<STDIN>);
print_object(1, $blob);
print "\n";