| blib/lib/Email/MIME/Attachment/Stripper.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 19 | 68.4 |
| line | l | !l | condition |
|---|---|---|---|
| 51 | 0 | 6 | push @keep, $_ and next |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 51 | 11 | 1 | 6 | $ct =~ m[text/plain]i and $dp =~ /inline/i |
| line | l | !l | condition |
|---|---|---|---|
| 16 | 8 | 0 | ref $email || 'SCALAR' |
| 48 | 18 | 0 | $_->content_type || 'text/plain' |
| 49 | 15 | 3 | $_->header('Content-Disposition') || 'inline' |
| 64 | 6 | 4 | $_->filename || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 18 | 8 | 0 | 0 | ref $email or do { require Email::Abstract; $email = 'Email::Abstract'->cast($email, 'Email::MIME') } |
| 42 | 1 | 10 | 0 | $part ||= $$self{'message'} |