CPAN::Groonga

ATAL => 'all';
use Moo;
use Getopt::Long qw(GetOptionsFromArray);
use Try::Tiny;
use MongoDB;
use JSON;

=head1 NAME

Uninets::Check::Modules::MongoDB - Uninets::Check module to check mongodb servers.

	my ($self, $status, $value, $format) = @_;

	return JSON->new->encode(
		{
			message => $value,
			status  => $status,
		}
	) if $format eq 'json';
	# default last in case some non supported format 

 'Default: num'
				},
				formats => {
					'num'  => 'Returns the status code',
					'json' => 'Returns a JSON structure',
				},
			},
		},
	}
}

=head1 AUTHOR

Matthias Krull, C<< <<m.krull at uni