| line |
true |
false |
branch |
|
35
|
14 |
0 |
if ref $_[1] |
|
36
|
43 |
0 |
if ref $_[1] |
|
46
|
237 |
19 |
unless $class eq "Mail::Message::Body" |
|
52
|
0 |
19 |
exists $args{'file'} ? : |
|
73
|
3 |
234 |
if (defined(my $file = $args->{'file'})) { } |
|
|
149 |
85 |
elsif (defined(my $data = $args->{'data'})) { } |
|
|
32 |
53 |
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
|
86 |
63 |
if (not ref $data) { } |
|
|
63 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
95
|
0 |
63 |
unless $self->_data_from_lines($data) |
|
102
|
0 |
32 |
unless $self->_data_from_lines([]) |
|
110
|
0 |
237 |
if (defined $filename) |
|
111
|
0 |
0 |
-T $filename ? : |
|
118
|
0 |
237 |
if (ref $mime and $mime->isa("MIME::Type")) |
|
122
|
130 |
107 |
if (defined(my $based = $args->{'based_on'})) { } |
|
130
|
46 |
84 |
defined $args->{'checked'} ? : |
|
140
|
27 |
210 |
exists $args->{'charset'} ? : |
|
141
|
74 |
137 |
if $default_charset and $mime =~ m[^text/]i and not $mime->attribute("charset") |
|
146
|
138 |
99 |
if defined $transfer |
|
147
|
130 |
107 |
if defined $disp |
|
148
|
130 |
107 |
if defined $descr |
|
149
|
130 |
107 |
if defined $cid |
|
157
|
26 |
211 |
if defined $args->{'message'} |
|
178
|
1 |
1 |
unless @_ |
|
181
|
1 |
0 |
if ($eol eq "NATIVE") |
|
182
|
0 |
1 |
$^O =~ /^mac/i ? : |
|
|
0 |
1 |
$^O =~ /^win/i ? : |
|
187
|
0 |
1 |
if $eol eq $self->{'MMB_eol'} and $self->checked |
|
189
|
1 |
0 |
if (@$lines) |
|
194
|
0 |
1 |
if ($eol eq 'CR') { } |
|
|
1 |
0 |
elsif ($eol eq 'LF') { } |
|
|
0 |
0 |
elsif ($eol eq 'CRLF') { } |
|
211
|
153 |
11 |
if (@_) |
|
212
|
153 |
0 |
if ($self->{'MMB_message'} = shift()) |
|
239
|
526 |
514 |
if not @_ and defined $self->{'MMB_type'} |
|
244
|
384 |
130 |
ref $type ? : |
|
251
|
18 |
26 |
if exists $self->{'MMB_mime'} |
|
254
|
26 |
0 |
defined $field ? : |
|
256
|
0 |
26 |
unless length $body |
|
269
|
290 |
262 |
if not @_ and defined $self->{'MMB_transfer'} |
|
271
|
198 |
64 |
defined $_[0] ? : |
|
272
|
142 |
120 |
ref $set ? : |
|
279
|
164 |
53 |
if not @_ and $self->{'MMB_description'} |
|
281
|
134 |
89 |
defined $_[0] ? : |
|
282
|
134 |
89 |
ref $disp ? : |
|
289
|
166 |
53 |
if not @_ and $self->{'MMB_disposition'} |
|
291
|
132 |
91 |
defined $_[0] ? : |
|
293
|
132 |
91 |
ref $disp ? : |
|
300
|
164 |
53 |
if not @_ and $self->{'MMB_id'} |
|
302
|
130 |
93 |
defined $_[0] ? : |
|
303
|
130 |
93 |
ref $cid ? : |
|
310
|
1 |
110 |
@_ ? : |
|
326
|
25 |
0 |
unless (caller)[0] eq "Carp" |
|
348
|
0 |
0 |
unless defined $filename |
|
350
|
0 |
0 |
unless open OUT, ">", $filename |
|
352
|
0 |
0 |
unless close OUT |
|
370
|
0 |
87 |
unless defined $head |
|
374
|
0 |
87 |
if $Mail::Message::crlf_platform |
|
393
|
31 |
129 |
length $x ? : |
|
409
|
0 |
13 |
unless @_ |
|
419
|
7 |
39 |
unless @_ |
|
447
|
10 |
3 |
if ($mod eq 'encode') { } |
|
451
|
13 |
0 |
if $self->can($call) |