CPAN::Groonga

lookup:

    loggmann -H node02 -S httpd

Change default logging format:

    loggmann node03 -f "time host service metric"

Output raw (json):

    loggmann node04 -r

Help:

    loggmann -h


=cut

package Golger;

use strict;
use warnings;
use 5.008002;

use AnyEvent::WebSocket::Client;
use JSON::Any;

our $VERSION = version->parse('v0.1.0');

sub connect {
	my $connect_info = shift;
	my $forma

	if (ref $format eq "ARRAY") {
 			my @format = @$format;
			$format = sub {
				my $omsg = JSON::Any -> jsonToObj ($_[0]);
				my @fm = @{$omsg}{ @format };
				print join " ", map {defined ($_) ? $_

{
			die "oh noes! this ain't no coderef";
		}
 	} else {
 		$format = sub {
 			my $omsg = JSON::Any -> jsonToObj ($_[0]);
 			my @fm = @{$omsg}{ qw/time host service description/ };
			print join "