CPAN::Groonga

ut

sub http_headers {
    my $self = shift;

    return {
        'Content-Type' => 'application/json, charset=utf8',
        'Api-Token'    => $self->api_token,
    };
}

=head2 request

Sends reque

$method, $self->_url_for($path), $self->http_headers, uc($method) eq 'GET' ? (form => $params) : (json => $params),));

    if ($resp->result->is_error) {
        my $details = $resp->result->{content

 request to SB API: ' . $details);
    }

    my $data;
    eval {
        $data = $resp->result->json;
        1;
    } or do {
        Carp::croak('Fail to parse response from SB API: ' . $@);
    }

package WebService::SendBird::User;

use strict;
use warnings;

use Carp;
use JSON::MaybeXS;

our $VERSION = '0.002';    ## VERSION

=head1 NAME

WebService::SendBird::User - SendBird User

=head1 SYN

.

=cut

sub issue_session_token {
    my ($self) = @_;

    $self->update(issue_session_token => JSON::MaybeXS::true);

    my $tokens = $self->session_tokens // [];

    my ($latest_token) = sort { 

package WebService::SendBird::GroupChat;

use strict;
use warnings;

use Carp;
use JSON::MaybeXS ();
use WebService::SendBird::User;

our $VERSION = '0.002';    ## VERSION

=head1 NAME

WebService::Se

annel>.

=cut

sub set_freeze {
    my ($self, $freeze) = @_;

    $freeze = $freeze ? JSON::MaybeXS::true : JSON::MaybeXS::false;

    my $res = $self->api_client->request(
        PUT => 'group_chan