CPAN::Groonga

use strict;
use warnings;

use Error::Pure qw(err);
use Getopt::Std;
use IO::Barf qw(barf);
use JSON::XS;
use LWP::Simple qw(get);
use Perl6::Slurp qw(slurp);
use Readonly;
use Toolforge::MixNMatch:

s;

	# Object.
	return $self;
}

sub _catalog_json_file_to_obj {
	my $json_file = shift;

	my $json = slurp($json_file);
	my $struct_hr = decode_json($json);
	my $obj = Toolforge::MixNMatch::Struct::C

 ($json_file1, $json_file2, $print_options) = @_;

	if (! defined $json_file1 || ! -r $json_file1) {
		return (1, "Doesn't exist JSON file #1 for diff.");
	}
	if (! defined $json_file2 || ! -r $json_f