File Coverage

blib/lib/App/Presto/Client/ContentHandlers/JSON.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch	1	6	16.6
condition	0	2	0.0
subroutine	4	7	57.1
pod	0	4	0.0
total	16	44	36.3

package App::Presto::Client::ContentHandlers::JSON;
our $AUTHORITY = 'cpan:MPERRY';
$App::Presto::Client::ContentHandlers::JSON::VERSION = '0.010';
# ABSTRACT: Handles (de)serializing of JSON requests/responses

use Moo;
my $HAS_JSON;
BEGIN {
	eval 'use JSON; $HAS_JSON = 1;'
}
sub can_deserialize {
	my $self = shift;
	my $content_type = shift;
	return unless $HAS_JSON;
	return $content_type =~ m{^application/json}i;
}

sub deserialize {
	my $self = shift;
	my $content = shift;
	my $ref;
	eval { $ref = JSON::decode_json($content) || 1 } or do {
		warn "Unable to parse JSON: $@";
	};
	return $ref;
}

sub can_serialize {
	my $self = shift;
	my $content_type = shift;
	return unless $HAS_JSON;
	return $content_type =~ m{^application/json}i;
}
sub serialize {
	my $self = shift;
	my $data = shift;
	return JSON::encode_json($data);
}

1;

__END__