| line |
true |
false |
branch |
|
15
|
2 |
0 |
if (UNIVERSAL::can('Crypt::OpenSSL::RSA', 'use_sha512_hash')) |
|
23
|
2 |
5 |
unless (defined $algorithm) |
|
26
|
1 |
6 |
unless ($algorithm) |
|
37
|
6 |
1 |
if (not $algorithm eq 'none') { } |
|
49
|
5 |
2 |
unless (defined $verify) |
|
53
|
0 |
7 |
unless @$segments == 2 or @$segments == 3 |
|
62
|
5 |
2 |
if $verify |
|
66
|
5 |
2 |
if ($verify) |
|
82
|
5 |
0 |
if ($has_sha2) |
|
92
|
5 |
0 |
if (exists $$algorithm{$algo}) { } |
|
93
|
2 |
3 |
unless ($$algorithm{$algo}($algo, $key, $signing_input, $signature)) |
|
119
|
6 |
0 |
if ($has_sha2) |
|
129
|
1 |
5 |
unless (exists $$algorithm{$algo}) |