CPAN::Groonga

dmin::API;
use strict;
use warnings;
use Carp;
use Plack::Builder;
use Data::Dump qw( dump );
use JSON;
use Dezi::Admin::API::Indexes;

our $VERSION = '0.006';

=head1 NAME

Dezi::Admin::API - Dezi ad

             };
                $resp->body( to_json($about) );
                $resp->status(200);
                $resp->content_type('application/json');
                return $resp->finalize();
 

erload
    '""'     => sub { $_[0]->stringify; },
    'bool'   => sub {1},
    fallback => 1;
use JSON;
use Plack::Util::Accessor qw(
    total
    success
    results
    metaData
);

sub new {
    m

s,
    };

    return bless $self, $class;
}

sub stringify {
    my $self = shift;
    return to_json( {%$self} );
}

1;

__END__

=head1 NAME

Dezi::Admin::API::Response - Dezi administration API re

total,
    results => $list,
 );
 print $resp;  # renders as JSON
        
=head1 DESCRIPTION

Dezi::Admin::API::Response represents a JSON response to an API call.

=head1 METHODS

=head2 new( I<args

Component );
use Data::Dump qw( dump );
use Plack::Util::Accessor qw(
    debug
    engine
);
use JSON;
use Plack::Middleware::REST::Util;
use Dezi::Admin::Utils;
use Dezi::Admin::API::Response;

our 

esponse;
    $resp->status(200) unless $resp->status;
    $resp->content_type(Dezi::Admin::Utils::json_mime_type)
        unless $resp->content_type;
    $resp->body($idx);
    return $resp->finalize;

esponse;
    $resp->status(200) unless $resp->status;
    $resp->content_type(Dezi::Admin::Utils::json_mime_type)
        unless $resp->content_type;
    $resp->body("$list");
    return $resp->finali

p qw( dump );
use Plack::Util::Accessor qw(
    debug
    conn
    table_name
    searcher
);
use JSON;
use Plack::Middleware::REST::Util;
use Dezi::Admin::Utils;
use Dezi::Admin::API::Response;
use T

 undef;
    if ( !$method ) {
        $resp->status(404);
        $resp->body(
            encode_json(
                {   code    => 404,
                    success => 0,
                    error 

;
    }

    $resp->status(200) unless $resp->status;
    $resp->content_type(Dezi::Admin::Utils::json_mime_type)
        unless $resp->content_type;

    return $resp->finalize;
}

1;

__END__

=head

;
use Carp;
use Data::Dump qw( dump );
use JSON;
use Sort::SQL;
use Search::QueryParser::SQL;

our $VERSION = '0.006';

sub json_mime_type {'application/json'}

sub params_to_sql {
    my $req = shift

olor )]
 );
        
=head1 DESCRIPTION

Dezi::Admin utility functions.

=head1 FUNCTIONS

=head2 json_mime_type

Returns appropriate MIME type string.

=head2 params_to_sql( I<plack_request>, I<table