| line |
true |
false |
branch |
|
27
|
0 |
0 |
@_ % 2 ? : |
|
28
|
0 |
0 |
if $class eq 'Mail::Internet' |
|
38
|
0 |
0 |
unless defined $self->SUPER::init($args) |
|
42
|
0 |
0 |
exists $args->{'Modify'} ? : |
|
45
|
0 |
0 |
if defined $self->{'raw_data'} |
|
52
|
0 |
0 |
unless $get_head or $get_body |
|
55
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data eq 'GLOB') { } |
|
|
0 |
0 |
elsif (ref $data and $data->isa('IO::Handle')) { } |
|
72
|
0 |
0 |
unless @$lines |
|
84
|
0 |
0 |
if ($get_head) { } |
|
85
|
0 |
0 |
substr($lines->[0], 0, 5) eq 'From ' ? : |
|
93
|
0 |
0 |
if defined $from |
|
100
|
0 |
0 |
if $get_body |
|
120
|
0 |
0 |
@_ ? : |
|
129
|
0 |
0 |
unless ref $thing |
|
163
|
0 |
0 |
if (open HEAD, '<:raw', $headtemp) |
|
203
|
0 |
0 |
if (my $filename = delete $self->{'File'}) { } |
|
|
0 |
0 |
elsif (my $sig = delete $self->{'Signature'}) { } |
|
210
|
0 |
0 |
unless defined $sig |
|
214
|
0 |
0 |
if defined $set |
|
237
|
0 |
0 |
if @_ |
|
238
|
0 |
0 |
unless $self->SUPER::head |
|
274
|
0 |
0 |
@_ ? : |
|
283
|
0 |
0 |
unless (@_) |
|
285
|
0 |
0 |
defined $body ? : |
|
288
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
306
|
0 |
0 |
if defined $stripped |
|
314
|
0 |
0 |
unless my $body = $self->body |
|
320
|
0 |
0 |
if $body->nrLines == @body |
|
334
|
0 |
0 |
unless (defined $host) |
|
336
|
0 |
0 |
if defined $hosts |
|
370
|
0 |
0 |
if $class eq 'Mail::Internet' |