File Coverage

blib/lib/Event/RPC/Message/JSON.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	20	22	90.9

# $Id: Message.pm,v 1.9 2014-01-28 15:40:10 joern Exp $

#-----------------------------------------------------------------------
# Copyright (C) 2002-2015 by Jörn Reder .
# All Rights Reserved. See file COPYRIGHT for details.
#
# This module is part of Event::RPC, which is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#-----------------------------------------------------------------------

package Event::RPC::Message::JSON;

use base Event::RPC::Message::SerialiserBase;

use strict;
use utf8;

use JSON::XS 3.0;

my $decoder = JSON::XS->new->allow_tags;
my $encoder = JSON::XS->new->latin1->allow_blessed->allow_tags;

sub decode_message { $decoder->decode($_[1]) }
sub encode_message { $encoder->encode($_[1]) }

1;

__END__