CPAN::Groonga

  "'tunnel show' response: $_\n";
		}
		$data{$k} = $v;
	}
	return Net::SixXS::Data::Tunnel->from_json(\%data);
}

sub debug($ $)
{
	my ($self, $msg) = @_;

	$self->diag->debug($msg) if $self->diag;
}

  my %tunnels = (
      T00001 => Net::SixXS::Data::Tunnel->from_json(\%data1),
      T00002 => Net::SixXS::Data::Tunnel->from_json(\%data2),
  );
  my $s = Net::SixXS::Server::Inetd->new(username =

Moose;
use MooseX::Role::JSONObject::Meta::Trait;

with 'MooseX::Role::JSONObject';

has id => (
	is => 'ro',
	isa => 'Str',
	required => 1,
	traits => ['JSONAttribute'],
	json_attr => 'TunnelId',
);

	required => 1,
	traits => ['JSONAttribute'],
	json_attr => 'Password',
);

has type => (
	is => 'ro',
	isa => 'Str',
	required => 1,
	traits => ['JSONAttribute'],
	json_attr => 'Type',
);

has mtu =

quired => 1,
	traits => ['JSONAttribute'],
	json_attr => 'Tunnel MTU',
);

has ipv6_local => (
	is => 'ro',
	isa => 'Str',
	required => 1,
	traits => ['JSONAttribute'],
	json_attr => 'IPv6 Endpoint',

  my %tunnels = (
      T00001 => Net::SixXS::Data::Tunnel->from_json(\%data1),
      T00002 => Net::SixXS::Data::Tunnel->from_json(\%data2),
  );
  my $s = Net::SixXS::Server::AnyEvent->new(usernam

nvalid tunnel $tid");
	} else {
		$self->client_write_line($client, "201 $tid");
		my $h = $t->to_json;
		$self->client_write_line($client, "$_: $h->{$_}") for
		    sort keys %{$h};
		$self->client_w