CPAN::Groonga

v.json
  -- -- meta.json
  -- -- summary.json
  -- -- testinfo.json
  -- -- preprocess.txt
  -- -- postprocess.txt
  -- -- result/
  -- -- -- init.pl.json
  -- -- -- basic_file_handling_setup.pl.json

ture_processing_setup.pl.json
  -- -- -- filehandl/
  -- -- -- -- fh1.pl.json
  -- -- -- -- fh2.pl.json
  -- -- -- picproc/
  -- -- -- -- pp1.pl.json
  -- -- -- -- pp2.pl.json
  -- -- tap/
  -- -- -- 

- -- -- -- fh2.pl.tap
  -- -- -- picproc/
  -- -- -- -- pp1.pl.tap
  -- -- -- -- pp2.pl.tap

All 'json' files are in UTF-8.

The described format version here is '1.0', and is indicated in the meta-da

ile::Copy::Recursive qw(dircopy);
use File::Temp qw(tempdir);
use File::Slurp qw(write_file);
use JSON;
use Net::Domain qw(hostfqdn);
use POSIX qw(uname);

# CTOR
#
sub new
{
	my $class = shift;
	my $

kdir/save/testontap/tap"),
						result =>  slashify("$workdir/save/testontap/result"),
						json => JSON->new()->utf8()->pretty()->canonical(),
						orderstrategy => undef,
						dispensedorder => 

	my $name = shift;
	my $data = shift;
	
	my $file = slashify("$name.json");
	mkpath(dirname($file));
	write_file($file, $self->{json}->encode($data)) || die("Failed to write '$file': $!\n");
}

sub __