view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

  map { $_->header_set(Date => ()); $_ } $complex->parts
]);

$complex->parts_set([
  map { $_->header_set('Content-ID' => ()); $_ } $complex->parts
]);

is($complex->parts, 2, "one reply part, one original part");

like(
  ($complex->parts)[1]->header('content-type'),
  qr{^message/rfc822},
  'the second part is the original, rfc822-style',
);

like $complex->header('from'), qr/human\@earth\.sol/, "correct from";

like $complex->header('in-reply-to'),
     qr/1232345\@titan\.saturn\.sol/,
     "correct from";