| line |
true |
false |
branch |
|
17
|
1 |
22 |
$_[0]{'is_mdc'} ? : |
|
28
|
23 |
25 |
if (my $key = $param{'SymKey'} and my $data = $param{'Data'}) |
|
37
|
22 |
1 |
unless $enc->{'is_mdc'} |
|
40
|
1 |
22 |
if ($enc->{'is_mdc'}) |
|
56
|
3 |
22 |
if ($is_mdc) |
|
66
|
1 |
22 |
if ($enc->{'is_mdc'}) |
|
77
|
0 |
0 |
if ($enc->{'is_mdc'}) |
|
86
|
0 |
24 |
unless my $cipher = "Crypt::OpenPGP::Cipher"->new($sym_alg, $key) |
|
91
|
0 |
24 |
unless substr($pt, -4, 2) eq substr($pt, -2, 2) |
|
93
|
22 |
2 |
unless $enc->{'is_mdc'} |
|
95
|
2 |
22 |
if ($enc->{'is_mdc'}) |
|
99
|
0 |
2 |
unless $mdc and ref $mdc eq "Crypt::OpenPGP::MDC" |
|
104
|
0 |
2 |
unless $mdc->digest eq $hash |