CPAN::Groonga

ha;

use strict;
use 5.008_005;
our $VERSION = '0.02';

use Carp 'croak';
use LWP::UserAgent;
use JSON;
use Try::Tiny;

use vars qw/$errstr/;
sub errstr { $errstr }

sub new {
    my $class = shift;
 

n";
    $args{ua} ||= LWP::UserAgent->new;
    $args{ua}->default_header('Accept' => 'application/json');
    $args{url} ||= 'http://api.dbcapi.me/api/captcha';
    $args{sleep} ||= 3;

    return ble

urn $self->request(
        __method => 'POST',
        type => 4,
        token_params => encode_json(\%params)
    );
}

sub get {
    my ($self, $id) = @_;

    return $self->request(
        url =