| line |
true |
false |
branch |
|
14
|
1 |
22 |
$_[0]{'is_mdc'} ? :
|
|
25
|
23 |
24 |
if (my $key = $param{'SymKey'} and my $data = $param{'Data'})
|
|
34
|
22 |
1 |
unless $enc->{'is_mdc'}
|
|
37
|
1 |
22 |
if ($enc->{'is_mdc'})
|
|
53
|
2 |
22 |
if ($is_mdc)
|
|
63
|
1 |
22 |
if ($enc->{'is_mdc'})
|
|
74
|
0 |
0 |
if ($enc->{'is_mdc'})
|
|
83
|
0 |
23 |
unless my $cipher = 'Crypt::OpenPGP::Cipher'->new($sym_alg, $key)
|
|
88
|
0 |
23 |
unless substr($pt, -4, 2) eq substr($pt, -2, 2)
|
|
90
|
22 |
1 |
unless $enc->{'is_mdc'}
|
|
92
|
1 |
22 |
if ($enc->{'is_mdc'})
|
|
96
|
0 |
1 |
unless $mdc and ref $mdc eq 'Crypt::OpenPGP::MDC'
|
|
101
|
0 |
1 |
unless $mdc->digest eq $hash
|