File Coverage

blib/lib/Raisin/Encoder/Text.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	4	0.0
total	25	32	78.1

#!perl
#PODNAME: Raisin::Encoder::Text
#ABSTRACT: Data::Dumper serialization plugin for Raisin.

use strict;
use warnings;

package Raisin::Encoder::Text;
$Raisin::Encoder::Text::VERSION = '0.94';
use Data::Dumper;
use Encode 'encode';

sub detectable_by { [qw(text/plain txt)] }
sub content_type { 'text/plain; charset=utf-8' }

sub serialize {
    my ($self, $data) = @_;

    $data = Data::Dumper->new([$data], ['data'])
        ->Sortkeys(1)
        ->Purity(1)
        ->Terse(1)
        ->Deepcopy(1)
        ->Dump;
    $data = encode('UTF-8', $data);
    $data;
}

sub deserialize {
    Raisin::log(error => 'Raisin:Encoder::Text doesn\'t support deserialization');
    die;
}

1;

__END__