| blib/lib/Email/MIME/Attachment/Stripper.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 8 | if (ref $email || 'SCALAR') eq 'SCALAR' |
| 18 | 0 | 0 | unless ref $email or do { require Email::Abstract; $email = 'Email::Abstract'->cast($email, 'Email::MIME') } |
| 29 | 7 | 0 | unless exists $$self{'attach'} |
| 36 | 3 | 4 | unless exists $$self{'attach'} |
| 37 | 5 | 2 | $$self{'attach'} ? : |
| 43 | 4 | 7 | if $part->parts == 1 |
| 51 | 6 | 12 | if $ct =~ m[text/plain]i and $dp =~ /inline/i |
| 54 | 1 | 11 | if ($_->parts > 1) |
| 56 | 1 | 0 | if @kept |
| 64 | 2 | 10 | $$self{'attr'}{'force_filename'} ? : |