CPAN::Groonga

    datetime
    timestamp
    year
  ))},
  #unknown => {( map { $_ => 1 } qw(
  #  enum set bit json
  #  geometry point linestring polygon
  #  multipoint multilinestring multipolygon geometrycolle

  if ( $self->{object_trace} ) {
        use JSON::MaybeXS qw( encode_json );
        open my $fh, '>', $self->{object_trace};
        print $fh encode_json({
          objects => $self->{traces},
   

 our hardest to write out in JSON. If that doesn't work, write it
      # out in DDP.
      try {
        use JSON::MaybeXS qw( encode_json );
        print $fh encode_json({
          objects => $sel

 %x = ( objects => $self->{traces} );
        print $fh np(%x);

        warn "Couldn't write out in JSON ($e2). Using DDP instead\n";
      };

      close $fh;
    }

    die $e;
  };
}

1;
__END__

($header_instance); 
	return $handler_instance->api_call("bulkwrite.ActionResponse", "application/json"); 
}

sub create_bulk_write_job
{
	my ($self,$request) = @_;
	if(!(($request)->isa("bulkwrite::R

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

s

ST_CATEGORY_READ); 
	return $handler_instance->api_call("bulkwrite.ResponseWrapper", "application/json"); 
}

sub download_bulk_write_result
{
	my ($self,$download_url) = @_;
	my $handler_instance = C

y) {
    return ($rows, $additional);
  }
  else {
    return $rows;
  }
}

use JSON::MaybeXS qw( decode_json encode_json );
use YAML::Any qw( LoadFile Load );
sub normalize_input {
  my ($proto) = @_

ame;
    <$fh>;
  };
  return @{decode_json($data)};
}

sub save_topograph {
  my ($array, $filename) = @_;
  open my $fh, '>', $filename;
  print $fh encode_json($array);
  close $fh;
}

1;
__END__

TION

The specification can be passed along as a filename that contains YAML or JSON,
a string that contains YAML or JSON, or as a hash of arrays of hashes. The
structure should look like:

  {
    Re

rc::com::zoho::api::exception::SDKException;
use src::com::zoho::crm::api::Initializer;
use JSON::Parse 'json_file_to_perl';
use Cwd qw(realpath);

sub validate
{
    my($self, $header_param, $value) 

y $json_details = $self->get_json_details();

    my %json_details=%{$json_details};

    my $json_class_name = $self->get_file_name($class_name);

    my $type_detail = undef;

    if(exists($json_de

tails{$json_class_name}))
    {
        $type_detail = $self->get_key_json_details($name, $json_details{$json_class_name});
    }

    if(defined($type_detail))
    {
        my %type_detail = %{$type

r. ".json";

    # my $test = __FILE__;
    #
    # my ($volume,$directory,$file) = File::Spec->splitpath( $test );
    #
    # my $test_path = catfile($directory, "../../../../../", $str. ".json");
 

th;

    # return "/Users/raja-7453/Documents/AutomateSDK/PerlSDK/zohocrm-perl-sdk/src/". $str. ".json";
}

=head1 NAME

com::zoho::crm::api::util::Converter - This abstract class is to construct API 

.

Param member_name : A String containing the member name.

Param key_details : A JSONObject containing the key JSON details.

Param value : A Object containing the key value.

Param unique_values_ma

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

sub update_related_records
{
	my ($self,$request) = @_;
	if(!(($request)->isa("relatedreco

y_method($Constants::REQUEST_CATEGORY_UPDATE); 
	$handler_instance->set_content_type("application/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	U

dler_instance); 
	return $handler_instance->api_call("relatedrecords.ActionHandler", "application/json"); 
}

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

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

sub update_related_records
{
	my ($self,$request) = @_;
	if(!(($request)->isa("relatedreco

y_method($Constants::REQUEST_CATEGORY_UPDATE); 
	$handler_instance->set_content_type("application/json"); 
	$handler_instance->set_request($request); 
	$handler_instance->set_mandatory_checker(1); 
	U

dler_instance); 
	return $handler_instance->api_call("relatedrecords.ActionHandler", "application/json"); 
}

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

: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;

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;

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;

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

der($header_instance); 
	return $handler_instance->api_call("users.ResponseHandler", "application/json"); 
}

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

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

sub 

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

sub 

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

use warnings;
use JSON;
package Utility;

use src::com::zoho::crm::api::fields::FieldsOperations;
use src::com::zoho::crm::api::relatedlists::RelatedListsOperations;
use src::com::zoho::crm::api::modu

 Data::Dumper;
use Time::HiRes qw(gettimeofday);
use File::Spec::Functions qw(catfile);
use JSON::Parse "json_file_to_perl";
use Moose;

our %apitype_vs_datatype = ();

our %apitype_vs_structurename =

s::FIELD_DETAILS_DIRECTORY);

    unless(-e $resources_path)
    {
        unless(Utility::search_json_details($module_api_name) eq "")
        {
            return;
        }

        mkdir $resource

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

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

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

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

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

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

d($Constants::REQUEST_METHOD_GET); 
	$handler_instance->set_category_method($Constants::REQUEST_CATEGORY_READ); 
	return $handler_instance->api_call("roles.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 

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

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

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

use strict;
use warnings;
use JSON;
use src::com::zoho::crm::api::util::Constants;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;

package APIHTTPConnector;

use Moose;

our $logger = Log::

 $self->{url} . $key . "=" . $value . "&";
		}
	}
}

sub to_string
{
	my($self) = shift;

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

	my $request_headers = $self->{headers};

	my %request_headers = %{$request_head

::URL . " = " . $self->{url} . ' , ' . $Constants::HEADERS . $JSON->encode(\%request_headers) . ' , ' . $Constants::PARAMS . " = " . $JSON->encode(\%{$self->{parameters}}) . ".");


}

=head1 NAME

co