CPAN::Groonga

;

use Moose;
use Log::Log4perl qw(:easy);
use LWP::UserAgent;
use DateTime;
use Time::HiRes;
use JSON;
use Data::Dumper;
use Readonly;
use Try::Tiny;
use HTTP::Request::Common;
use DBI;
use Carp qw(c

$VERSION",
        keep_alive => 1,
    );
    $globalua->default_header('Accept' => 'application/json');
    return $globalua;
}

=head2 application

The application name to be used for the rest meth

od, $rest_data) = @_;

    my $res = $self->_rest_request_no_json($method, $rest_data);
    my ($response, $msg) = try {
        return(JSON->new->decode($res->content), 0);
    } catch {
        retu

package Net::SugarCRM::Entry;

use warnings;
use strict;
use JSON;

our $VERSION = sprintf "3.%05d", q$Revision: 20471 $ =~ /(\d+)/xg;

=head1 Net::SugarCRM::Entry

Represens an entry from Sugar

=hea

{value};
        $self->{name_value_list}{$field}{value} = $_[0] if ($#_ > -1);
	if (ref $ret eq 'JSON::XS::Boolean') {
	    $ret = '';
	}
        return $ret;
    } else {
        confess("$field: No