AnyEvent-Groonga

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    - xt
requires:
  AnyEvent: 0
  AnyEvent::HTTP: 0
  AnyEvent::Util: 0
  Class::Accessor::Fast: 0
  Encode: 0
  File::Which: 0
  JSON: 0
  List::MoreUtils: 0
  Try::Tiny: 0
  URI: 0
  URI::Escape: 0
resources:
  license: http://dev.perl.org/licenses/
version: 0.08

Makefile.PL  view on Meta::CPAN

all_from 'lib/AnyEvent/Groonga.pm';

requires 'AnyEvent';
requires 'AnyEvent::Util';
requires 'AnyEvent::HTTP';
requires 'File::Which';
requires 'List::MoreUtils';
requires 'URI';
requires 'URI::Escape';
requires 'JSON';
requires 'Try::Tiny';
requires 'Encode';
requires 'Class::Accessor::Fast';

tests 't/*.t';
author_tests 'xt';

test_requires 'Test::More';
test_requires 'FindBin';
test_requires 'File::Spec';

lib/AnyEvent/Groonga.pm  view on Meta::CPAN

use Carp;
use AnyEvent;
use AnyEvent::Util qw(run_cmd);
use AnyEvent::HTTP;
use AnyEvent::Groonga::Result;
use File::Which qw(which);
use List::MoreUtils qw(any);
use URI;
use URI::Escape;
use JSON;
use Try::Tiny;
use Encode;
use base qw(Class::Accessor::Fast);

our $VERSION = '0.08';

__PACKAGE__->mk_accessors($_)
    for qw( protocol host port groonga_path database_path command_list debug);

sub new {
    my $class = shift;

t/03_error.t  view on Meta::CPAN

use strict;
use warnings;
use AnyEvent::Groonga;
use Test::More tests => 4;
use Try::Tiny;

{
    my $g = AnyEvent::Groonga->new;
    $g->groonga_path("dummy");
    try {
        my $result
            = $g->call( select => { table => "test", query => "something" } )
            ->recv;
    }
    catch {