| blib/lib/MIME/Head.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 25 | 68.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 897 | 247 | 0 | 80 | defined $value and $value ne "" |
| 247 | 3 | 77 | defined $value and $value ne "" and $value =~ /\S/ |
| line | l | !l | condition |
|---|---|---|---|
| 449 | 0 | 2 | shift() || 0 |
| 628 | 7 | 73 | $MIME::Entity::BOUNDARY_DELIMITER || "\n" |
| 771 | 1295 | 1344 | $subtag ||= "_" |
| 806 | 170 | 146 | $self->mime_attr('content-transfer-encoding') || '7bit' |
| 841 | 9 | 154 | $self->mime_attr('content-type') || $self->{'MIH_DefaultType'} || 'text/plain' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 450 | 0 | 0 | 2 | $force eq "I_NEED_TO_FIX_THIS" or $force eq "I_KNOW_WHAT_I_AM_DOING" |
| 595 | 77 | 0 | 0 | $fh ||= select |
| 843 | 0 | 993 | 0 | $] <= "5.008" or $] >= "5.014" |