CPAN::Groonga

Moose;
use JSON;
use UUID::Tiny ':std';

has 'json' => (is => 'rw', isa => 'JSON');
has 'json_data' => (is => 'rw', isa => 'HashRef[Ref]');

sub BUILD {
	my $self = shift;

	$self->json(JSON->new->utf

8);
	$self->json->convert_blessed(1);
	$self->json->allow_blessed(1);
	$self->json_data({});
	my $v1_mc_UUID = create_uuid();
	$self->json_data->{format} = {
		id => "b744635a-9d6b-11e3-8ec0-da765d6aa

4db",
		multiple => JSON::false,
	};
	$self->json_data->{result} = {
		data => {
			network_interfaces => [],
			#firewall => {},
			#bridges => {},
			routes => [],
			nameservers => [],
			openports