CPAN::Groonga

s_in) = @_;
	my (@cmd, $single, @paths, $cmd_str, @su, $json, $tests);
	
	# TESTING
	# println subname(); ##i
	
	# load JSON module
	require JSON::Tiny;
	
	# paths must be sent
	if (! defined $paths_i

		'-c',
		$cmd_str,
	);
	
	# run command, get results
	$json = capturex(@su);
	
	# decode json
	eval {
		$tests = JSON::Tiny::decode_json($json);
	};
	
	# throw error if unable to decode
	if (! $test

ternal {
	my (@paths) = @_;
	my ($rv);
	
	# TESTING
	# println subname(); ##i
	
	# load JSON module
	require JSON::Tiny;
	
	# initialize return hashref
	$rv = {};
	
	# loop through paths
	PATH_LOOP: