| line |
true |
false |
branch |
|
35
|
11 |
0 |
if ref $_[1] |
|
36
|
41 |
0 |
if ref $_[1] |
|
46
|
198 |
16 |
unless $class eq "Mail::Message::Body" |
|
52
|
0 |
16 |
exists $args{'file'} ? : |
|
73
|
3 |
195 |
if (defined(my $file = $args->{'file'})) { } |
|
|
138 |
57 |
elsif (defined(my $data = $args->{'data'})) { } |
|
|
13 |
44 |
elsif (not $self->isMultipart || $self->isNested) { } |
|
75
|
0 |
3 |
if (not ref $file) { } |
|
|
0 |
3 |
elsif (ref $file eq 'GLOB') { } |
|
|
3 |
0 |
elsif ($file->isa('IO::Handle')) { } |
|
76
|
0 |
0 |
unless $self->_data_from_filename($file) |
|
82
|
0 |
0 |
unless $self->_data_from_glob($file) |
|
84
|
0 |
3 |
unless $self->_data_from_filehandle($file) |
|
90
|
80 |
58 |
if (not ref $data) { } |
|
|
58 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
95
|
0 |
58 |
unless $self->_data_from_lines($data) |
|
102
|
0 |
13 |
unless $self->_data_from_lines([]) |
|
110
|
0 |
198 |
if (defined $filename) |
|
111
|
0 |
0 |
-T $filename ? : |
|
118
|
0 |
198 |
if (ref $mime and $mime->isa("MIME::Type")) |
|
122
|
119 |
79 |
if (defined(my $based = $args->{'based_on'})) { } |
|
123
|
42 |
77 |
unless defined $mime |
|
124
|
106 |
13 |
unless defined $transfer |
|
125
|
119 |
0 |
unless defined $disp |
|
126
|
119 |
0 |
unless defined $descr |
|
127
|
119 |
0 |
unless defined $cid |
|
130
|
43 |
76 |
defined $args->{'checked'} ? : |
|
139
|
70 |
128 |
if $mime =~ m[^text/]i and not $mime->attribute("charset") |
|
142
|
127 |
71 |
if defined $transfer |
|
143
|
119 |
79 |
if defined $disp |
|
144
|
119 |
79 |
if defined $descr |
|
145
|
119 |
79 |
if defined $cid |
|
153
|
12 |
186 |
if defined $args->{'message'} |
|
174
|
0 |
0 |
unless @_ |
|
177
|
0 |
0 |
if ($eol eq "NATIVE") |
|
178
|
0 |
0 |
$^O =~ /^mac/i ? : |
|
|
0 |
0 |
$^O =~ /^win/i ? : |
|
183
|
0 |
0 |
if $eol eq $self->{'MMB_eol'} and $self->checked |
|
185
|
0 |
0 |
if (@$lines) |
|
190
|
0 |
0 |
if ($eol eq 'CR') { } |
|
|
0 |
0 |
elsif ($eol eq 'LF') { } |
|
|
0 |
0 |
elsif ($eol eq 'CRLF') { } |
|
207
|
118 |
7 |
if (@_) |
|
208
|
118 |
0 |
if ($self->{'MMB_message'} = shift()) |
|
235
|
470 |
413 |
if not @_ and defined $self->{'MMB_type'} |
|
238
|
407 |
6 |
defined $_[0] ? : |
|
240
|
312 |
101 |
ref $type ? : |
|
247
|
18 |
26 |
if exists $self->{'MMB_mime'} |
|
250
|
26 |
0 |
defined $field ? : |
|
252
|
0 |
26 |
unless length $body |
|
265
|
265 |
224 |
if not @_ and defined $self->{'MMB_transfer'} |
|
267
|
171 |
53 |
defined $_[0] ? : |
|
268
|
115 |
109 |
ref $set ? : |
|
275
|
153 |
49 |
if not @_ and $self->{'MMB_description'} |
|
277
|
123 |
62 |
defined $_[0] ? : |
|
278
|
123 |
62 |
ref $disp ? : |
|
285
|
155 |
49 |
if not @_ and $self->{'MMB_disposition'} |
|
287
|
119 |
66 |
defined $_[0] ? : |
|
289
|
119 |
66 |
ref $disp ? : |
|
296
|
153 |
49 |
if not @_ and $self->{'MMB_id'} |
|
298
|
119 |
66 |
defined $_[0] ? : |
|
299
|
119 |
66 |
ref $cid ? : |
|
306
|
0 |
98 |
@_ ? : |
|
322
|
21 |
0 |
unless (caller)[0] eq "Carp" |
|
344
|
0 |
0 |
unless defined $filename |
|
346
|
0 |
0 |
unless open OUT, ">", $filename |
|
348
|
0 |
0 |
unless close OUT |
|
366
|
0 |
83 |
unless defined $head |
|
370
|
0 |
83 |
if $Mail::Message::crlf_platform |
|
389
|
13 |
55 |
length $x ? : |
|
405
|
0 |
10 |
unless @_ |
|
415
|
2 |
15 |
unless @_ |
|
443
|
9 |
3 |
if ($mod eq 'encode') { } |
|
447
|
12 |
0 |
if $self->can($call) |