view release on metacpan or  search on metacpan

lib/Email/MIME.pm  view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
use parent qw(https://metacpan.org/pod/Email::Simple">Email::Simple);
 
use Carp ();
use Email::MessageID;
use Email::MIME::Creator;
use Email::MIME::ContentType 1.023; # build_content_type
use Email::MIME::Encode;
use Email::MIME::Encodings 1.314;
use Email::MIME::Header;
use Encode 1.9801 ();
use Scalar::Util qw(reftype weaken);
 
our @CARP_NOT = qw(Email::MIME::ContentType);
 
our $MAX_DEPTH = 10;
 
our $CUR_PARTS = 0;
our $MAX_PARTS = 100;
 
#pod =head1 SYNOPSIS
#pod

lib/Email/MIME.pm  view on Meta::CPAN

877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
      if ($differ) {
        $part->parts_set(\@subparts);
        $changed{ 0+$part }++;
      }
    }
 
    return $part;
  };
 
  $walk_weak = $walk;
  weaken $walk_weak;
 
  my $rv = $walk->($self);
 
  undef $walk;
 
  return $rv;
}
 
sub _compose_content_type {
  my ($self, $ct_header) = @_;