| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (defined $body->path) { } |
|
84
|
0 |
0 |
if ($_ == $part) { } |
|
|
0 |
0 |
elsif ($_->parts > 0) { } |
|
103
|
0 |
0 |
if (-d $location) { } |
|
109
|
0 |
0 |
if (-e $filename) |
|
117
|
0 |
0 |
unless my $io = $self->open('r') |
|
119
|
0 |
0 |
unless open SAVE, ">$filename" |
|
142
|
0 |
0 |
if (UNIVERSAL::isa($self, 'MIME::Entity')) { } |
|
144
|
0 |
0 |
if defined $_->head->recommended_filename |
|
159
|
0 |
0 |
if (UNIVERSAL::isa($self, 'MIME::Entity')) { } |
|
178
|
0 |
0 |
if (UNIVERSAL::isa($self, 'MIME::Entity')) { } |
|
195
|
0 |
0 |
if (defined $part->head->recommended_filename) { } |
|
|
0 |
0 |
elsif ($part->parts > 0) { } |
|
196
|
0 |
0 |
if defined $opts{'mime_type'} and not $part->mime_type =~ /$opts{'mime_type'}/ |
|
199
|
0 |
0 |
if defined $opts{'filename'} and not $part->filename =~ /$opts{'filename'}/ |
|
201
|
0 |
0 |
if defined $opts{'bigger_than'} and $part->size >= $opts{'smaller_than'} |
|
203
|
0 |
0 |
if defined $opts{'bigger_than'} and $part->size <= $opts{'bigger_than'} |