File Coverage

blib/lib/Mail/Builder/Utils.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             # ============================================================================
2             package Mail::Builder::Utils;
3             # ============================================================================
4 8     8   51 use strict;
  8         19  
  8         238  
5 8     8   40 use warnings;
  8         17  
  8         218  
6 8     8   4353 use utf8;
  8         104  
  8         87  
7              
8 8     8   3707 use Encode qw/encode/;
  8         60135  
  8         1078  
9              
10             sub encode_mime {
11 28     28 0 68 my ($string) = @_;
12              
13 28 100       245 return $string
14             if $string !~ m/[^\x00-\x7f]|["']|=\?|\?=/;
15 2         11 return encode('MIME-Header', $string);
16             }
17              
18             1;