| line |
true |
false |
branch |
|
40
|
6 |
0 |
if ref $_[1] |
|
41
|
53 |
0 |
if ref $_[1] |
|
49
|
308 |
19 |
unless $class eq __PACKAGE__ |
|
52
|
0 |
19 |
exists $args{'file'} ? : |
|
69
|
3 |
305 |
if (defined(my $file = $args->{'file'})) { } |
|
|
155 |
150 |
elsif (defined(my $data = $args->{'data'})) { } |
|
|
89 |
61 |
elsif (not $self->isMultipart || $self->isNested) { } |
|
71
|
0 |
3 |
if (not ref $file) { } |
|
|
3 |
0 |
elsif (ref $file eq 'GLOB' or builtin::blessed($file) and $file->isa('IO::Handle')) { } |
|
72
|
0 |
0 |
unless $self->_data_from_filename($file) |
|
77
|
0 |
3 |
unless $self->_data_from_filehandle($file) |
|
85
|
88 |
67 |
if (not ref $data) { } |
|
|
67 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
90
|
0 |
67 |
unless $self->_data_from_lines($data) |
|
98
|
0 |
89 |
unless $self->_data_from_lines([]) |
|
105
|
0 |
308 |
if (defined $filename) |
|
106
|
0 |
0 |
-T $filename ? : |
|
113
|
0 |
308 |
if (ref $mime and $mime->isa("MIME::Type")) |
|
117
|
131 |
177 |
if (defined(my $based = $args->{'based_on'})) { } |
|
125
|
46 |
85 |
exists $args->{'checked'} ? : |
|
135
|
77 |
231 |
exists $args->{'charset'} ? : |
|
136
|
97 |
137 |
if $default_charset and $mime =~ m[^text/]i and not $mime->attribute("charset") |
|
141
|
143 |
165 |
if defined $transfer |
|
142
|
131 |
177 |
if defined $disp |
|
143
|
131 |
177 |
if defined $descr |
|
144
|
0 |
308 |
if defined $lang |
|
145
|
131 |
177 |
if defined $cid |
|
151
|
74 |
234 |
if defined $args->{'message'} |
|
172
|
249 |
11 |
if (@_) |
|
173
|
249 |
0 |
if ($self->{'MMB_message'} = shift()) |
|
198
|
512 |
719 |
if not @_ and defined $self->{'MMB_type'} |
|
203
|
509 |
210 |
builtin::blessed($type) ? : |
|
209
|
39 |
69 |
if exists $self->{'MMB_mime'} |
|
212
|
69 |
0 |
defined $field ? : |
|
213
|
69 |
0 |
length $body ? : |
|
222
|
296 |
337 |
if not @_ and defined $self->{'MMB_transfer'} |
|
225
|
183 |
154 |
builtin::blessed($set) ? : |
|
231
|
161 |
57 |
if not @_ and $self->{'MMB_description'} |
|
234
|
135 |
156 |
builtin::blessed($disp) ? : |
|
240
|
163 |
57 |
if not @_ and $self->{'MMB_disposition'} |
|
243
|
146 |
145 |
builtin::blessed($disp) ? : |
|
249
|
0 |
218 |
if not @_ and $self->{'MMB_lang'} |
|
254
|
0 |
321 |
ref $_[0] eq 'ARRAY' ? : |
|
|
0 |
321 |
builtin::blessed($_[0]) ? : |
|
|
0 |
321 |
@_ > 1 ? : |
|
258
|
0 |
0 |
builtin::blessed($langs) ? : |
|
|
321 |
0 |
!(defined $langs && length $langs) ? : |
|
266
|
161 |
57 |
if not @_ and $self->{'MMB_id'} |
|
269
|
131 |
160 |
builtin::blessed($cid) ? : |
|
275
|
1 |
112 |
if (@_) { } |
|
290
|
27 |
0 |
unless (caller)[0] eq "Carp" |
|
312
|
0 |
0 |
unless my $filename = $args{'filename'} |
|
315
|
0 |
0 |
unless open my $out, ">", $filename |
|
319
|
0 |
0 |
unless $out->close |
|
338
|
0 |
87 |
unless defined $head |
|
342
|
0 |
87 |
if $Mail::Message::crlf_platform |
|
362
|
84 |
431 |
length $x ? : |
|
379
|
0 |
13 |
unless @_ |
|
389
|
16 |
105 |
unless @_ |
|
415
|
13 |
3 |
if ($mod eq 'encode') { } |
|
419
|
16 |
0 |
if $self->can($call) |