File Coverage

blib/lib/Ark/Plugin/Encoding/Unicode.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 0 2 0.0
total 25 28 89.2


line stmt bran cond sub pod time code
1             package Ark::Plugin::Encoding::Unicode;
2 59     59   32607 use strict;
  59         139  
  59         1908  
3 59     59   323 use warnings;
  59         136  
  59         1973  
4 59     59   18485 use Ark::Plugin;
  59         146  
  59         265  
5 59     59   388 use Encode;
  59         146  
  59         11841  
6              
7       280 0   sub prepare_encoding { }
8              
9             sub finalize_encoding {
10 280     280 0 481 my $self = shift;
11              
12 280         694 my $res = $self->response;
13 280 100 66     3836 $res->body(encode_utf8 $res->body ) if !$res->binary and $res->has_body;
14             };
15              
16             1;