CPAN::Groonga

use Data::Format::Pretty::JSON qw{format_pretty};
use Data::PathSimple qw{get};
use Getopt::Long;
use JSON::XS;
use Pod::Usage;

my (
  $data,
  %options,
);

init();
jsonconf();

sub init {
  # get

!)\n";
  }

  my ($json) = do { local $/; <$fh> };
  $data      = eval { decode_json($json) };

  if ($@) {
    die "error: invalid JSON was encountered\n";
  }

  # }}}
}

sub jsonconf {
  my $value 

=pod

=head1 NAME

jsonexplorer.pl - A simple JSON explorer for the command line (think ls for JSON)

=head1 SYNOPSIS

    jsonexplorer.pl [options] [path]

    $ cat example.json
    {
      "Perl":