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   34 use strict;
  8         10  
  8         219  
5 8     8   29 use warnings;
  8         8  
  8         194  
6 8     8   4284 use utf8;
  8         71  
  8         32  
7              
8 8     8   4044 use Encode qw/encode/;
  8         55818  
  8         1051  
9              
10             sub encode_mime {
11 28     28 0 31 my ($string) = @_;
12              
13 28 100       201 return $string
14             if $string !~ m/[^\x00-\x7f]|["']|=\?|\?=/;
15 2         7 return encode('MIME-Header', $string);
16             }
17              
18             1;