| line |
true |
false |
branch |
|
44
|
14 |
0 |
if (eval q[use Math::Prime::Util 'random_nbit_prime'; 1;]) |
|
59
|
4 |
28 |
if (my $bl = &blessed($_[0])) |
|
62
|
2 |
2 |
if $bl->isa('Crypt::MagicSignatures::Key') |
|
66
|
3 |
27 |
if (ref $_[0]) |
|
74
|
22 |
5 |
if (@_ == 1 and index($_[0], 'RSA.') >= 0) { } |
|
|
3 |
2 |
elsif (@_ % 2 == 0) { } |
|
93
|
2 |
20 |
unless ($mod = _b64url_to_hex($mod)) |
|
98
|
19 |
1 |
if $exp |
|
99
|
9 |
11 |
if $private_exp |
|
105
|
18 |
2 |
if $exp |
|
108
|
9 |
11 |
if $private_exp |
|
116
|
3 |
0 |
if (defined $param{'n'}) { } |
|
122
|
6 |
3 |
if exists $param{$_} |
|
126
|
2 |
1 |
unless ($self->n) |
|
151
|
2 |
19 |
if ($size < 512 or $size > 4096) |
|
167
|
0 |
0 |
unless ($GENERATOR) |
|
179
|
0 |
0 |
if ($size) { } |
|
182
|
0 |
0 |
if ($size < 512 or $size > 4096 or $size % 2) |
|
220
|
0 |
0 |
unless (--$m > 0) |
|
230
|
0 |
0 |
if _bitsize($n) == $size |
|
235
|
0 |
0 |
unless ($m > 0) |
|
244
|
0 |
0 |
if $e |
|
253
|
0 |
0 |
if _bitsize($d) < $size / 4 |
|
274
|
133 |
22 |
unless $_[0] |
|
280
|
1 |
21 |
if ($n->is_nan) |
|
297
|
36 |
22 |
unless $_[0] |
|
303
|
1 |
21 |
if ($e->is_nan) |
|
317
|
24 |
10 |
unless $_[0] |
|
323
|
1 |
9 |
if ($d->is_nan) |
|
343
|
1 |
5 |
unless ($self->d) |
|
361
|
2 |
13 |
unless ($encoded_message and $message) |
|
370
|
1 |
12 |
unless ($encoded_message) |
|
398
|
1 |
17 |
if ($_[0] and $self->d) |
|
409
|
1 |
81 |
unless $_[0] |
|
413
|
1 |
80 |
if utf8::is_utf8($v) |
|
418
|
16 |
65 |
defined $_[1] ? : |
|
|
6 |
75 |
unless defined $_[1] ? $_[1] : 1 |
|
426
|
2 |
91 |
unless $v |
|
433
|
27 |
64 |
if ($padding = length($v) % 4) |
|
459
|
0 |
6 |
unless my $EM = _emsa_encode($M, $k) |
|
477
|
2 |
10 |
if (length $S != $k) |
|
483
|
0 |
10 |
unless my $m = _rsavp1($K, $s) |
|
484
|
0 |
10 |
unless my $EM = _emsa_encode($M, $k) |
|
497
|
2 |
8 |
if ($m >= $K->n or $m < 0) |
|
514
|
0 |
10 |
if ($s > $K->n or $s < 0) |
|
530
|
0 |
18 |
unless $M |
|
540
|
0 |
18 |
if ($emLen < $tLen + 11) |
|
556
|
1 |
57 |
if $l > 30000 |
|
577
|
2 |
55 |
if $num->is_nan or $num->length > 30000 |
|
584
|
1 |
54 |
if ($l and $num > $base ** $l) |
|
595
|
52 |
2 |
if $num != 0 |
|
597
|
14 |
40 |
if (length $result < $l) |
|
617
|
1 |
64 |
unless $int |
|
630
|
3 |
52 |
unless my $b64 = b64url_decode(shift()) |
|
644
|
20 |
20 |
length($num) % 2 > 0 ? : |