| line |
true |
false |
branch |
|
26
|
0 |
0 |
if (my $charset = $entity->head->mime_attr('content-type.charset')) |
|
34
|
0 |
0 |
unless $body =~ /\n\z/u |
|
38
|
0 |
0 |
if (my $charset = $entity->head->mime_attr('content-type.charset')) |
|
43
|
0 |
0 |
unless ($encoding_ok) |
|
45
|
0 |
0 |
unless $head->mime_attr('content-type') |
|
51
|
0 |
0 |
unless my $fh = $entity->bodyhandle->open('w') |
|
56
|
0 |
0 |
unless $fh->close |
|
61
|
0 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
65
|
0 |
0 |
if (not defined $self->{'enriched'} and defined(my $plain = $self->plain)) |
|
75
|
0 |
0 |
if @_ |
|
81
|
0 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
85
|
0 |
0 |
if (not defined $self->{'html'} and defined(my $plain = $self->plain)) |
|
87
|
0 |
0 |
unless defined &MIME::Signature::encode_entities |
|
98
|
0 |
0 |
if @_ |
|
104
|
0 |
0 |
if @_ |
|
110
|
0 |
0 |
if @_ |
|
116
|
0 |
0 |
if @_ |
|
122
|
0 |
0 |
unless defined(my $signature = $self->$type) |
|
135
|
0 |
0 |
unless defined &MIME::Signature::encode_utf8 |
|
137
|
0 |
0 |
grep((lc $_->mime_type eq 'text/enriched'), $entity->parts) ? : |
|
|
0 |
0 |
grep((lc $_->mime_type eq 'text/html'), $entity->parts) ? : |
|
163
|
0 |
0 |
unless $self->unsign |
|
168
|
0 |
0 |
if @parts != 2 |
|
205
|
0 |
0 |
if lc $tagname eq 'body' |
|
224
|
0 |
0 |
if length ref $package |
|
225
|
0 |
0 |
if @_ % 2 |
|
240
|
0 |
0 |
if @_ |
|
246
|
0 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif (not $self->{'parser'}) { } |
|
282
|
0 |
0 |
unless my $entity = shift() || $self->{'entity'} |
|
286
|
0 |
0 |
unless $self->can($handler_method) and $self->$handler_method($entity) |
|
306
|
0 |
0 |
if $version_pod =~ /^Version \Q$v\E$/mu |