File Coverage

blib/lib/Plack/ResponseHelper/Text.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition	2	4	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	32	35	91.4

package Plack::ResponseHelper::Text;
use strict;
use warnings;

use Encode qw/encode/;
use Plack::Response;

sub helper {
    my $init = shift;
    my $content_type = $init && $init->{content_type} || 'text/plain';
    my $encoding = $init && $init->{encoding} || 'utf-8';

    return sub {
        my $r = shift;
        my $response = Plack::Response->new(200);
        $response->content_type($content_type);
        $response->body(ref $r eq 'ARRAY' ? [map {encode $encoding, $_} @$r] : encode $encoding, $r);
        return $response;
    };
}

1;

__END__