CPAN::Groonga

T_CATEGORY_READ); 
	return $handler_instance->api_call("currencies.ResponseHandler", "application/json"); 
}

sub add_currencies
{
	my ($self,$request) = @_;
	if(!(($request)->isa("currencies::BodyWra

plication/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	return $handler_instance->api_call("currencies.ActionHandler", "application/json"); 
}

s

plication/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	return $handler_instance->api_call("currencies.ActionHandler", "application/json"); 
}

s

set_mandatory_checker(1); 
	return $handler_instance->api_call("file.ActionHandler", "application/json"); 
}

sub get_file
{
	my ($self,$param_instance) = @_;
	if((defined($param_instance))&&(!(($para

use Error;
use JSON;
sub new
{
  my ($class, $code, $message, $details, $cause) = @_;

  my $self={
      code    => $code,
      message => $message,
      details => JSON->new->utf8->enco

or code.

Param message : A String containing the Exception error message.

Param details : A JSONObject containing the error response.

Param cause : A Exception class instance.

=item C<to_s

com::zoho::crm::api::util::Constants;
use JSON;
use File::Spec::Functions qw(catfile);
use Try::Catch;
use Log::Handler;
use File::Path;
use JSON::Parse "json_file_to_perl";

our $logger = Log::Handle

ld_details_json = json_file_to_perl($record_field_details_path);

            my %record_field_details_json = %{$record_field_details_json};

            if(exists($record_field_details_json{lc($modul

ls_json{lc($module)});
            }

            my $JSON = JSON->new->utf8;

            my $data;

            open($data, ">", $record_field_details_path);

            my $encoded_json = $JSON->e

type}->($obj);
}

=head1 NAME

com::zoho::crm::api::util::DataTypeConverter - This class converts JSON value to the expected data type.

=head1 DESCRIPTION

=head2 METHODS

=over 4

=item C<init>

Thi

rter method.

=item C<pre_convert>

This method is to convert JSON value to expected data value.

Param obj : A Object containing the JSON value.

Param type : A String containing the expected method 

 Type containing expected data value.

=item C<post_convert>

This method to convert Perl data to JSON data value.

Param obj : A specified dataType containing a perl data value.

Param type : A Strin

package Log;
use JSON;
sub new
{
  my ($class, $level, $file_path) = @_;
  my $self={
    'level' => $level,
    'file_path' => $file_path
  };
  bless $self, $class;
  return $self;
}

s

TEGORY_READ); 
	return $handler_instance->api_call("variablegroups.ResponseHandler", "application/json"); 
}

sub get_variable_group_by_id
{
	my ($self,$id) = @_;
	my $handler_instance = CommonAPIHand

TEGORY_READ); 
	return $handler_instance->api_call("variablegroups.ResponseHandler", "application/json"); 
}

sub get_variable_group_by_api_name
{
	my ($self,$api_name) = @_;
	my $handler_instance = C

nts::REQUEST_METHOD_GET); 
	$handler_instance->set_category_method($Constants::REQUEST_CATEGORY_READ); 
	return $handler_instance->api_call("variablegroups.ResponseHandler", "application/json"); 
}
1;

elf->{module}); 
	return $handler_instance->api_call("relatedlists.ResponseHandler", "application/json"); 
}

sub get_related_list
{
	my ($self,$id) = @_;
	my $handler_instance = CommonAPIHandler->new

ry_method($Constants::REQUEST_CATEGORY_READ); 
	$handler_instance->add_param("module", $self->{module}); 
	return $handler_instance->api_call("relatedlists.ResponseHandler", "application/json"); 
}
1;

use src::com::zoho::api::authenticator::Token;
use src::com::zoho::crm::api::util::Constants;
use JSON;
use Moose;
use Try::Catch;
use Log::Handler;
use REST::Client;
use Scalar::Util::Numeric qw(isin

%request_body);

        my $decoded_json = JSON->new->utf8->decode($res->decoded_content());

        $store->save_token($user, $self->parse_response($decoded_json));

        return $self;
    }
   

%request_body);

        my $decoded_json = JSON->new->utf8->decode($res->decoded_content());

        $store->save_token($user, $self->parse_response($decoded_json));

        return $self;
    }
   

       'MIME::Base64'              => 3.13,
        'DateTime::Format::ISO8601' => 0.08,
        'JSON::Parse'               => 0.56,
        'List::MoreUtils'           => 0.33,
        'Time::HiRes'

       'MIME::Base64'              => 3.13,
        'DateTime::Format::ISO8601' => 0.08,
        'JSON::Parse'               => 0.56,
        'List::MoreUtils'           => 0.33,
        'Time::HiRes'

EST_CATEGORY_READ); 
	return $handler_instance->api_call("profiles.ResponseHandler", "application/json"); 
}

sub get_profile
{
	my ($self,$id) = @_;
	my $handler_instance = CommonAPIHandler->new(); 

Constants::REQUEST_METHOD_GET); 
	$handler_instance->set_category_method($Constants::REQUEST_CATEGORY_READ); 
	return $handler_instance->api_call("profiles.ResponseHandler", "application/json"); 
}
1;

def,
		message => undef,
		mandatory => undef,
		criteria => undef,
		related_details => undef,
		json_type => undef,
		crypt => undef,
		field_label => undef,
		tooltip => undef,
		created_source => 

}

sub get_json_type
{
	my ($self) = shift;
	return $self->{json_type}; 
}

sub set_json_type
{
	my ($self,$json_type) = @_;
	$self->{json_type} = $json_type; 
	$self->{key_modified}{"json_type"} = 1

self->{module}); 
	return $handler_instance->api_call("customviews.ResponseHandler", "application/json"); 
}

sub get_custom_view
{
	my ($self,$id) = @_;
	my $handler_instance = CommonAPIHandler->new(

ory_method($Constants::REQUEST_CATEGORY_READ); 
	$handler_instance->add_param("module", $self->{module}); 
	return $handler_instance->api_call("customviews.ResponseHandler", "application/json"); 
}
1;

EQUEST_CATEGORY_READ); 
	return $handler_instance->api_call("taxes.ResponseHandler", "application/json"); 
}

sub create_taxes
{
	my ($self,$request) = @_;
	if(!(($request)->isa("taxes::BodyWrapper"))

application/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	return $handler_instance->api_call("taxes.ActionHandler", "application/json"); 
}

sub 

application/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	return $handler_instance->api_call("taxes.ActionHandler", "application/json"); 
}

sub 

:REQUEST_CATEGORY_READ); 
	return $handler_instance->api_call("org.ResponseHandler", "application/json"); 
}

sub upload_organization_photo
{
	my ($self,$request) = @_;
	if(!(($request)->isa("org::Fil

"multipart/form-data"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	return $handler_instance->api_call("org.ActionResponse", "application/json"); 
}
1;

e", $self->{module}); 
	return $handler_instance->api_call("fields.ResponseHandler", "application/json"); 
}

sub get_field
{
	my ($self,$id) = @_;
	my $handler_instance = CommonAPIHandler->new(); 
	m

e", $self->{module}); 
	return $handler_instance->api_call("fields.ResponseHandler", "application/json"); 
}

package fields::GetFieldsParam;
sub type
{
	return Param->new("type", "com.zoho.crm.api.Fi

", $self->{module}); 
	return $handler_instance->api_call("layouts.ResponseHandler", "application/json"); 
}

sub get_layout
{
	my ($self,$id) = @_;
	my $handler_instance = CommonAPIHandler->new(); 
	

ategory_method($Constants::REQUEST_CATEGORY_READ); 
	$handler_instance->add_param("module", $self->{module}); 
	return $handler_instance->api_call("layouts.ResponseHandler", "application/json"); 
}
1;

EST_CATEGORY_READ); 
	return $handler_instance->api_call("bulkread.ResponseHandler", "application/json"); 
}

sub download_result
{
	my ($self,$job_id) = @_;
	my $handler_instance = CommonAPIHandler->

application/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	return $handler_instance->api_call("bulkread.ActionHandler", "application/json"); 
}
1;

1 if ! grep {
      ! exists $self->spec->{$_}
    } $r->self_fk_cols;
  }

  return;
}

sub make_jsonable {
  my $self = shift;
  my ($item) = @_;

  # Deference all scalar references. This happens w

R'
    ? ${$item->{$_}} : $item->{$_}
    for keys %{$item};

  # Stringify everything, otherwise JSON::MaybeXS gets confused
  $item->{$_} = defined $item->{$_}
    ? '' . $item->{$_} : undef
    for

     $self->{trace}{find} = $self->{runner}{ids}{find}++;
      $self->{trace}{row} = $self->make_jsonable( { $row->get_columns } );
      $self->{trace}{criteria} = [$to_find];
      $self->{trace}{u