File Coverage

blib/lib/Email/Simple/Creator.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	6	6	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod			n/a
total	35	35	100.0

use v5.12.0;
use warnings;
package Email::Simple::Creator 2.218;
# ABSTRACT: private helper for building Email::Simple objects

use Carp ();

sub _crlf {
  "\x0d\x0a";
}

sub _date_header {
  require Email::Date::Format;
  Email::Date::Format::email_date();
}

our @CARP_NOT = qw(Email::Simple Email::MIME);

sub _add_to_header {
  my ($class, $header, $key, $value) = @_;
  $value //= '';

  Carp::carp "Header name '$key' with wide characters" if $key =~ /[^\x00-\xFF]/;
  Carp::carp "Value '$value' for '$key' header with wide characters" if $value =~ /[^\x00-\xFF]/;

  if ($value =~ s/[\x0a\x0b\x0c\x0d\x85\x{2028}\x{2029}]+/ /g) {
    Carp::carp("replaced vertical whitespace in $key header with space; this will become fatal in a future version");
  }

  $$header .= Email::Simple::Header->__fold_objless("$key: $value", 78, q{ }, $class->_crlf);
}

sub _finalize_header {
  my ($class, $header) = @_;
  $$header .= $class->_crlf;
}

1;

__END__