| blib/lib/Crypt/OpenPGP/Armour.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 8 | unless my $data = $param{'Data'} |
| 19 | 7 | 1 | unless $param{'NoVersion'} |
| 36 | 0 | 15 | unless my($begin, $obj, $head, $data, $end) = $blob =~ /(-----BEGIN ([^\n\-]+)-----)\n(.*?\n\n)?(.+)(-----END .*?-----)/s |
| 39 | 0 | 15 | unless ($data =~ s/=([^\n]+)$//s) |
| 45 | 0 | 15 | unless $check eq $csum |
| 47 | 15 | 0 | if ($head) |