File Coverage

blib/lib/Groonga/HTTP.pm

Criterion	Covered	Total	%
statement	30	51	58.8
branch	0	4	0.0
condition			n/a
subroutine	10	16	62.5
pod	0	6	0.0
total	40	77	51.9

# Copyright (C) 2021-2022  Horimoto Yasuhiro
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see .

package Groonga::HTTP;

use LWP::UserAgent;

use Groonga::ResultSet;
use Groonga::Escape;

use Groonga::HTTP::Client;

use Groonga::Commands::Delete;
use Groonga::Commands::Load;
use Groonga::Commands::Status;
use Groonga::Commands::Select;


use strict;
use warnings;

our $VERSION = "1.11";

my $host = '127.0.0.1';
my $port = 10041;
my $groonga_http_client = undef;

sub new {
    my ($class, %args) = @_;
    my $self = {%args};

    if ($self->{host}) {
        $host = $self->{host};
    }
    if ($self->{port}) {
        $port = $self->{port};
    }

    $groonga_http_client =
        Groonga::HTTP::Client->new(host => $host, port => $port);
    return bless $self, $class;
}

sub status {
    my $status =
        Groonga::Commands::Status->new(client => $groonga_http_client);
    return $status->execute;
}

sub select {
    my ($client, %args) = @_;
    my $select =
        Groonga::Commands::Select->new(
            client => $groonga_http_client,
            %args
        );
    return $select->execute;
}

sub load {
    my ($client, %args) = @_;
    my $load =
        Groonga::Commands::Load->new(
            client => $groonga_http_client,
            %args
        );
    return $load->execute;
}

sub delete {
    my ($client, %args) = @_;
    my $delete =
        Groonga::Commands::Delete->new(
            client => $groonga_http_client,
            %args
        );
    return $delete->execute;
}

sub groonga_query_escape {
    my ($client, $raw_query) = @_;
    return Groonga::Escape->escape($raw_query);
}

1;
__END__