view release on metacpan or  search on metacpan

lib/TSVRPC/Client.pm  view on Meta::CPAN

    my ( $minor_version, $code, $msg, $headers, $body ) = $furl->request(
        url     => $self->{base} . $method,
        headers => [
            "Content-Type" => "text/tab-separated-values; colenc=$req_encoding",
            "Content-Length" => length($content),
        ],
        method          => 'POST',
        content         => $content,
        special_headers => \%special_headers,
    );
    my $decoded_body;
    if (my $content_type = $special_headers{'content-type'}) {
        my $res_encoding = TSVRPC::Util::parse_content_type( $content_type );
        $decoded_body = defined($res_encoding) ? TSVRPC::Parser::decode_tsvrpc( $body, $res_encoding ) : undef;
    }
    return ($code, $decoded_body, $msg);
}

1;
__END__

=head1 NAME

TSVRPC::Client - TSV-RPC client library

=head1 SYNOPSIS

lib/TSVRPC/Parser.pm  view on Meta::CPAN

__END__

=head1 NAME

TSVRPC::Parser - TSV-RPC parser

=head1 SYNOPSIS

    my $encoded = TSVRPC::Parser::encode_tsvrpc(\%src, 'B');

    my $decoded = TSVRPC::Parser::decode_tsvrpc($src, 'B');

=head1 DESCRIPTION

This is TSV-RPC parser class.

=head1 FUNCTIONS

=over 4

=item C<< my $encoded = TSVRPC::Parser::encode_tsvrpc(\%src[, $encoding]); >>

Encode plain hashref to TSV with $encoding.

=item C<< my $decoded = TSVRPC::Parser::decode_tsvrpc($src[, $encoding]); >>

Decode TSV to plain hashref.

=back

=head1 ENCODING

=over 4

=item B