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         9  
  8         226  
5 8     8   29 use warnings;
  8         8  
  8         207  
6 8     8   4100 use utf8;
  8         66  
  8         28  
7              
8 8     8   3535 use Encode qw/encode/;
  8         56302  
  8         1106  
9              
10             sub encode_mime {
11 28     28 0 33 my ($string) = @_;
12              
13 28 100       199 return $string
14             if $string !~ m/[^\x00-\x7f]|["']|=\?|\?=/;
15 2         8 return encode('MIME-Header', $string);
16             }
17              
18             1;