—

              
#!/usr/bin/env perl
# PODNAME: pp
# App-PipeFilter is probably worth looking at
use strict;
use warnings;
use FindBin '$Bin';
use lib "$Bin/../lib";
use lib "$Bin/../extlib/lib/perl5";
use JSON;
while (<>) {
   eval {
      my $j = JSON->new->pretty->allow_nonref;
      print $j->encode($j->decode($_));
      1
   } || print "$_\n"
}
__END__
HideShow 23 lines of Pod
=pod
=head1 NAME
pp
=head1 VERSION
version 2.001005
=head1 AUTHOR
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Arthur Axel "fREW" Schmidt.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut