Branch Coverage

blib/lib/VOMS/Lite/CertKeyHelper.pm
Criterion Covered Total %
branch 37 86 43.0


line true false branch
59 30 0 defined $DNOIDs{$_[0]} ? :
63 9 0 defined $DNAttribs{$_[0]} ? :
101 1 1 if ($CI{'IssuerDN'} eq $CI{'SubjectDN'})
102 1 0 if (not defined $CI{'authorityKeyIdentifierSkid'} or $CI{'subjectKeyIdentifier'} eq $CI{'authorityKeyIdentifierSkid'})
104 1 0 unless (defined $lastMod)
113 2 0 $CI{'Start'} < $now && $CI{'End'} > $now ? :
114 0 2 defined $CI{'basicConstraintsPathLen'} && $CI{'basicConstraintsPathLen'} < $#_ - $#PathLen ? :
121 0 2 if (not $SignerPurposeCA[-1] || $SignerCertSignPurpose[-1] and $lastkeyUsageDigitalSignature) { }
122 0 0 if ($CI{'SubjectDN'} eq "$CI{'IssuerDN'}/CN=proxy") { }
0 0 elsif ($CI{'SubjectDN'} eq "$CI{'IssuerDN'}/CN=limited proxy") { }
0 0 elsif ($CI{'ProxyInfo'} eq 'RFC' or $CI{'ProxyInfo'} eq 'Pre-RFC') { }
123 0 0 if ($CI{'IssuerDN'} =~ m[/CN=limited proxy$]) { }
128 0 0 if (not $CI{'SubjectDN'} =~ m[^$CI{'IssuerDN'}/CN=[0-9]+$]) { }
0 0 elsif ($CI{'IssuerDN'} =~ m[/CN=(?:limited )?proxy$]) { }
135 1 1 if ($CI{'basicConstraintsCA'} or $CI{'keyUsageKeyCertSign'}) { }
142 0 2 defined $CI{"ProxyPathlen$CI{'ProxyInfo'}"} && $CI{"ProxyPathlen$CI{'ProxyInfo'}"} < $#_ - $#ProxyPathLen ? :
159 0 2 if ($i > 0 and $GSIType[$i] =~ /^Bad/)
160 0 2 unless ($Time[$i])
161 0 0 if (not $Signed[$i] and $i != 0 || $Self[$i])
162 0 2 if ($i != 0 and $Self[$i])
163 2 0 if (not $GSIType[$i] =~ /^(?:Lega[sc]y|Limited|RFC|Pre-RFC) Proxy$/ and $i != 0 || $Self[$i])
164 0 2 unless ($SignerPurposeCA[$i])
165 0 2 unless ($SignerCertSignPurpose[$i])
167 0 2 unless ($PathLen[$i])
168 0 2 unless ($ProxyPathLen[$i])
181 1 0 defined $in{'trustedCAdirs'} ? :
182 1 0 defined $in{'suppliedcerts'} ? :
183 0 1 defined $in{'trustedCAs'} ? :
227 0 1 $remainingtrusted > -1 ? :
237 2 0 if ($_ =~ /^$IHash[-1].[0-9]+$/)
240 1 0 if ($cert{$file} eq '' and defined $dir{$file})
254 1 0 if ($IDNs[-1] eq $dn{$file} and !defined($AKID[-1]) || $AKID[-1] eq $skid{$file})
256 0 1 if ($DNs[-1] eq $IDNs[-1] and !defined($AKID[-1]) || $SKID[-1] eq $AKID[-1]) { }
275 0 1 if $found eq 'no'
276 1 0 if ($DNs[-1] eq $IDNs[-1] and !defined($AKID[-1]) || $SKID[-1] eq $AKID[-1])
310 2 5 if ($type eq 'md5WithRSA') { }
5 0 elsif ($type eq 'sha1WithRSA') { }
0 0 elsif ($type eq 'md2WithRSA') { }
311 2 0 if (eval 'require Digest::MD5')
317 5 0 if (eval 'require Digest::SHA1')
323 0 0 if (eval 'require Digest::MD2')
343 5 0 if (defined $digestTBS)
351 2 0 if digestTBS($digestType, $TBS) eq rsaverify($SignedInfo, $chex, $nhex)