| line |
true |
false |
branch |
|
35
|
0 |
1 |
unless (defined $context{'Cert'}) |
|
36
|
0 |
1 |
unless (defined $context{'Key'}) |
|
39
|
0 |
1 |
if (@Errors > 0) |
|
42
|
1 |
0 |
$context{'Cert'} =~ /^(\060.+)$/s ? : |
|
43
|
1 |
0 |
$context{'Key'} =~ /^(\060.+)$/s ? : |
|
44
|
1 |
0 |
if (defined $CertInfoRef) { } |
|
45
|
1 |
0 |
if (defined $KeyInfoRef) { } |
|
48
|
0 |
1 |
if (@Errors > 0) |
|
51
|
1 |
0 |
defined $context{'Type'} && $context{'Type'} =~ /^(Lega[cs]y|Limited|Pre-RFC|RFC)$/ ? : |
|
52
|
0 |
1 |
if ($type eq 'Legasy') |
|
53
|
0 |
1 |
defined $context{'PathLength'} && $context{'PathLength'} =~ /^([0-9]+)$/s ? : |
|
54
|
0 |
1 |
defined $context{'Bits'} && $context{'Bits'} =~ /^(512|1024|2048|4096)$/s ? : |
|
55
|
1 |
0 |
defined $context{'Lifetime'} && $context{'Lifetime'} =~ /^([0-9]+)$/s ? : |
|
56
|
0 |
1 |
defined $context{'Start'} && $context{'Start'} =~ /^([0-9]+)$/s ? : |
|
57
|
0 |
1 |
defined $context{'AC'} && $context{'AC'} =~ /^(\060.+)$/s ? : |
|
59
|
0 |
1 |
if (defined $context{'Ext'}) |
|
60
|
0 |
0 |
if (ref $context{'Ext'} eq 'ARRAY') { } |
|
63
|
0 |
0 |
unless (/^(\060.+)$/) |
|
64
|
0 |
1 |
defined $context{'KeypublicExponent'} && $context{'KeypublicExponent'} =~ /^([\x00-\x7f].+)$/s ? : |
|
65
|
0 |
1 |
defined $context{'KeypublicModulus'} && $context{'KeypublicModulus'} =~ /^([\x00-\x7f].+)$/s ? : |
|
68
|
0 |
1 |
if (defined $context{'Type'} and not defined $type) |
|
69
|
0 |
1 |
if (defined $context{'PathLength'} and not defined $pathlen) |
|
70
|
0 |
1 |
if (defined $context{'Bits'} and not defined $bits) |
|
71
|
0 |
1 |
if (defined $context{'Lifetime'} and not defined $lifetime) |
|
72
|
0 |
1 |
if (defined $context{'Start'} and not defined $start) |
|
73
|
0 |
1 |
if (defined $context{'AC'} and not defined $AC) |
|
76
|
0 |
4 |
unless (/^(Quiet|Type|PathLength|Lifetime|AC|Ext|Cert|Key|Start|Bits|KeypublicExponent|KeypublicModulus)$/) |
|
78
|
0 |
1 |
if (defined $start) |
|
81
|
0 |
1 |
if (@Errors > 0) |
|
84
|
0 |
1 |
unless (defined $type) |
|
85
|
0 |
1 |
unless (defined $lifetime) |
|
86
|
1 |
0 |
unless (defined $bits) |
|
87
|
0 |
1 |
if ($lifetime > 86400) |
|
88
|
0 |
1 |
if ($lifetime > $CI{'End'} - $now) |
|
89
|
1 |
0 |
if ($CI{'End'} - $now < 604800) |
|
90
|
0 |
1 |
if ($type =~ /Legacy/ and defined $pathlen) |
|
106
|
1 |
0 |
if (not defined $KeypublicE && defined $KeypublicM) { } |
|
109
|
0 |
1 |
defined $context{'Quiet'} ? : |
|
110
|
0 |
1 |
unless (defined $keyref) |
|
112
|
0 |
1 |
if (defined $key{'Errors'}) |
|
144
|
1 |
0 |
$type eq 'Legacy' ? : |
|
157
|
0 |
1 |
if $type eq 'Limited' |
|
158
|
0 |
1 |
if $type ne 'Legacy' and $type ne 'Limited' |
|
171
|
0 |
1 |
defined $pathlen ? : |
|
173
|
0 |
1 |
if $type eq 'Pre-RFC' |
|
174
|
0 |
1 |
if $type eq 'RFC' |
|
176
|
0 |
1 |
if $type eq 'Pre-RFC' |
|
177
|
0 |
1 |
if $type eq 'RFC' |
|
181
|
0 |
1 |
if defined $AC |
|
208
|
1 |
0 |
unless (defined $KeypublicE and defined $KeypublicM) |