CPAN::Groonga

atus) {
        if ($client->info($self->get_name)) {
            my $files = array($client->res->json("/files"));

            # Init table
            my $tbl = Text::SimpleTable->new(
             

ame");
            return 0;
        }
    } else {
        my $files = array($self->client->res->json("/files"));
        my @tmp = sort {$a->{mtime} <=> $b->{mtime}} @$files;
        $tarball_name =

ame");
            return 0;
        }
    } else {
        my $files = array($self->client->res->json("/files"));
        my @tmp = sort {$a->{mtime} <=> $b->{mtime}} @$files;
        $tarball_name =

ken::Const;
use MToken::Util qw/filesize md5sum/;

use constant {
        CONTENT_TYPE_JSON   => "application/json",
        CONTENT_TYPE_TXT    => "text/plain; charset=utf-8",
        ROW_NUM        

ark") if $ctk->verbosemode();

    $self->res->headers->content_type(CONTENT_TYPE_JSON);
    return $self->render(json => {
            generated => dtf(DATETIME_GMT_FORMAT, time(), 1),
            me

->render(json => {
            message => "Token not found",
        }, status => 404) unless -d $dir;

    $self->res->headers->content_type(CONTENT_TYPE_JSON);
    return $self->render(json => {
   

res->headers->www_authenticate('Basic realm="MToken Strict Zone"');
            return $c->render(json => {
                message => "Authentication required!",
            }, status => 401);
      

    my $request = $clinet->req;

Returns Mojo::Message::Request object

=head2 request

    my $json = $clinet->request("METHOD", "PATH", ...ATTRIBUTES...);

Send request

=head2 res

    my $respon

 >>> 200 OK [1.04 KB in 0.0242 seconds (43.1 KB/sec)]
        CONTENT_TYPE        => "application/json",
        PWCACHE_TTL         => 300, # 5 min (Time to Live)
    };


sub new {
    my $class = s

>res->code || "000");
    $self->status($tx->res->is_success ? 1 : 0);
    $self->error($tx->res->json("/message") || $err->{message} || "Unknown error" )
        if $tx->res->is_error && !$self->erro