File Coverage

blib/lib/Raisin/Encoder/JSON.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	20	24	83.3

#!perl
#PODNAME: Raisin::Encoder::JSON
#ABSTRACT: JSON serialization plugin for Raisin.

use strict;
use warnings;

package Raisin::Encoder::JSON;
$Raisin::Encoder::JSON::VERSION = '0.94';
use JSON::MaybeXS qw();

my $json = JSON::MaybeXS->new(utf8 => 1);

sub detectable_by { [qw(application/json text/x-json text/json json)] }

sub content_type { 'application/json; charset=utf-8' }

sub serialize { $json->allow_blessed->convert_blessed->encode($_[1]) }

sub deserialize { $json->allow_blessed->convert_blessed->decode($_[1]->content) }

1;

__END__