| blib/lib/Convert/ASCII/Armour.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 24 | 70.8 |
| line | true | false | branch |
|---|---|---|---|
| 43 | 2 | 2 | $params{'Compress'} ? : |
| 44 | 0 | 4 | unless $params{'Content'} |
| 45 | 0 | 4 | unless $params{'Object'} |
| 51 | 2 | 2 | if $compress |
| 69 | 0 | 4 | unless my($head, $object, $headers, $content, $tail) = $message =~ /(-----BEGIN ([^\n\-]+)-----)\n(.*?\n\n)?(.+)(-----END .*?-----)$/s |
| 74 | 2 | 2 | if $obj |
| 75 | 0 | 4 | unless $content =~ s/=([^\n]+)$//s |
| 78 | 0 | 4 | unless $ncheck eq $checksum |
| 79 | 2 | 2 | if $compress |
| 83 | 3 | 1 | if ($headers) |
| 87 | 6 | 0 | if $key |
| 118 | 0 | 20 | unless $content =~ s/^(\d+)\x00(\d+)\x00// |