blob: be8b30e9628eb28bdb3294d74525e6d34715d485 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
package Net::HTTP::API::Parser::JSON;
# ABSTRACT: Parse JSON
use JSON;
use Moose;
extends 'Net::HTTP::API::Parser';
sub encode {
my ($self, $content) = @_;
return JSON::encode_json($content);
}
sub decode {
my ($self, $content) = @_;
return JSON::decode_json($content);
}
1;
=head1 SYNOPSIS
=head1 DESCRIPTION
|