CPAN::Groonga

Group
Extension

Matches 71

Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/DocumentExportApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/ClientApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
ms->{'Content-Type'} = $self->{api_client}
      ->select_header_content_type( 'application/json', 'text/json' );

    my $_body_data;

    # body params
    if ( exists $args{'name'} ) {
        $_bo
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/ApiClient.pm ( view source; MetaCPAN ) 
se;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
use Log::Any qw($log);
use Carp;
use Module::Runtime qw(use_m
y data
    $body_data = to_json( $body_data->to_hash )
      if defined $body_data
      && ref $body_data ne 'ARRAY'
      && $body_data->can('to_hash');    # model to json string
    my $_body_data 
      return $value->datetime();
    }
    else {
        return $value;
    }
}

# Deserialize a JSON string into an object
#
# @param string $class class name is passed as a string
# @param string $
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/GlossaryApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/ProjectApi.pm ( view source; MetaCPAN ) 
artcat::Client::ProjectApi;

require 5.6.0;
use strict;
use warnings;
use utf8;
use Exporter;
use JSON;
use Carp qw( croak );
use Log::Any qw($log);

use Smartcat::Client::ApiClient;

use base "Class:
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
  undef,
                undef,
                Content_Type => 'application/json',
                Content      => to_json( [ $args{'document_model'}->to_hash ] )
            ]
        );
    }
    i
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/PlaceholderFormatApiApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
ms->{'Content-Type'} = $self->{api_client}
      ->select_header_content_type( 'application/json', 'text/json' );

    my $_body_data;

    # body params
    if ( exists $args{'formats'} ) {
        $
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/DirectoriesApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/CallbackApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
ms->{'Content-Type'} = $self->{api_client}
      ->select_header_content_type( 'application/json', 'text/json' );

    my $_body_data;

    # body params
    if ( exists $args{'callback_property'} ) {
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/CreateProjectModel.pm ( view source; MetaCPAN ) 
lient::Object::CreateProjectModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/UploadedFile.pm ( view source; MetaCPAN ) 
cat::Client::Object::UploadedFile;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/ProjectChangesModel.pm ( view source; MetaCPAN ) 
ient::Object::ProjectChangesModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/TranslationMemoryForProjectModel.pm ( view source; MetaCPAN ) 
:TranslationMemoryForProjectModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/InvoiceApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
ms->{'Content-Type'} = $self->{api_client}
      ->select_header_content_type( 'application/json', 'text/json' );

    my $_body_data;

    # body params
    if ( exists $args{'model'} ) {
        $_b
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Role.pm ( view source; MetaCPAN ) 
arget/swagger-codegen-cli.jar generate \
  -i [URL or file path to JSON swagger API spec] \
  -l perl \
  -c /path/to/config/file.json \
  -o /path/to/output/folder

Bang, all done. Run the C<autodoc>
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/AccountApi.pm ( view source; MetaCPAN ) 
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
ms->{'Content-Type'} = $self->{api_client}
      ->select_header_content_type( 'application/json', 'text/json' );

    my $_body_data;

    # body params
    if ( exists $args{'model'} ) {
        $_b
der
    my $_header_accept = $self->{api_client}
      ->select_header_accept( 'application/json', 'text/json' );
    if ($_header_accept) {
        $header_params->{'Accept'} = $_header_accept;
    }
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/SegmentWithMatchesModel.pm ( view source; MetaCPAN ) 
::Object::SegmentWithMatchesModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/AccountModel.pm ( view source; MetaCPAN ) 
cat::Client::Object::AccountModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/DocumentWorkflowStageModel.pm ( view source; MetaCPAN ) 
bject::DocumentWorkflowStageModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/ProjectWorkflowStageModel.pm ( view source; MetaCPAN ) 
Object::ProjectWorkflowStageModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Smartcat-Client ( T/TA/TARAS/Smartcat-Client-0.0.3.tar.gz, TARAS, 2021; MetaCPAN )
Smartcat-Client/lib/Smartcat/Client/Object/DirectoryModel.pm ( view source; MetaCPAN ) 
t::Client::Object::DirectoryModel;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
# return perl hash
sub to_hash {
    return decode_json( JSON->new->convert_blessed->encode(shift) );
}

# used by JSON for serialization
sub TO_JSON {
    my $self  = shift;
    my $_data = {};
    f
alize the data
    while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
        my $_json_attribute = $self->attribute_map->{$_key};
        if ( $_type =~ /^array\[/i ) {    # array
Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.