view release on metacpan or  search on metacpan

script/ap-represent  view on Meta::CPAN

25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
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";