| blib/lib/Email/Reply.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 28 | 53.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 116 | 3 | 0 | 0 | $part->content_type and not $part->content_type =~ m[\btext/plain\b] |
| 120 | 1 | 1 | 1 | not $$self{'keep_sig'} and $body =~ /$crlf--\s*$crlf/o |
| line | l | !l | condition |
|---|---|---|---|
| 53 | 1 | 2 | $args{'prefix'} || '> ' |
| 75 | 3 | 0 | $$self{'original'}->header('Subject') || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 30 | 3 | 0 | 0 | $$reply{'quote'} or $$reply{'top_post'} |
| 41 | 1 | 2 | 0 | $args{'from'} || $$self{'original'}->header('To') |
| 44 | 3 | 0 | 0 | $$self{'original'}->header('Reply-To') || $$self{'original'}->header('From') || $$self{'original'}->header('Return-Path') |
| 50 | 1 | 2 | 0 | $args{'attrib'} || ($$self{'to'}->name || join($$self{'to'}->address, '<', '>')) . ' wrote:' |
| 120 | 1 | 0 | 0 | $self->_strip_sig($body) || $body |
| 124 | 3 | 0 | 0 | $end ||= $CRLF |