my ($pre, $post) = $indent ? $self->_up_indent() : ('', '');

##</code><code>##

my ($pre, $post) = ('', '');

##</code><code>##

use JSON::PP;

my %HoA = ('foo' => [1,2,3], 'bar' => ['a','b','c']);
print "plain:\n".JSON::PP->new->encode(\%HoA)."\n";
print "pretty:\n".JSON::PP->new->pretty->encode(\%HoA);