Branch Coverage

blib/lib/XML/Sig.pm
Criterion Covered Total %
branch 100 182 54.9


line true false branch
51 21 54 if (exists $params->{$prop})
59 11 14 exists $params->{'x509'} ? :
60 14 11 if (exists $params->{'key'})
63 6 17 if (exists $params->{'cert'})
66 1 22 if (exists $params->{'cert_text'})
77 1 8 unless $self->key
86 0 8 if $XML::Sig::DEBUG
105 0 10 if $XML::Sig::DEBUG
122 0 10 if $XML::Sig::DEBUG
126 0 10 if $XML::Sig::DEBUG
151 4 6 if ($self->{'key_type'} eq 'dsa') { }
152 0 4 if $XML::Sig::DEBUG
168 0 6 if $XML::Sig::DEBUG
179 0 10 if $XML::Sig::DEBUG
201 0 18 if $XML::Sig::DEBUG
207 0 23 if $XML::Sig::DEBUG
214 0 23 if $XML::Sig::DEBUG
220 2 21 unless ($self->{'parser'}->findvalue(q(//*[@ID=') . $reference . q('])))
221 0 2 if $XML::Sig::DEBUG
222 1 1 if ($numsigs <= 1) { }
234 0 21 if $XML::Sig::DEBUG
241 0 21 if $XML::Sig::DEBUG
245 0 21 if $XML::Sig::DEBUG
252 0 21 if $XML::Sig::DEBUG
258 0 21 if $XML::Sig::DEBUG
259 21 0 if ('Digest::SHA'->can($digest_method)) { }
271 9 12 if (defined $self->{'cert_obj'}) { }
273 0 9 unless ($self->_verify_x509_cert($self->{'cert_obj'}, $signed_info_canon, $signature))
289 12 12 if ($key_info_sig_type eq 'X509Data') { }
298 12 12 if ($keyinfo_nodeset->size)
300 0 12 if $XML::Sig::DEBUG
301 0 12 if (not $self->$verify_method($keyinfo_nodeset->get_node(0), $signed_info_canon, $signature)) { }
303 0 0 if $XML::Sig::DEBUG
307 0 12 if $XML::Sig::DEBUG
312 0 12 unless $keyinfo_nodeset and $keyinfo_nodeset->size > 0
333 0 21 if $XML::Sig::DEBUG
335 0 21 if $XML::Sig::DEBUG
338 0 21 unless $refdigest eq _trim(&encode_base64($digest, ''))
340 0 21 if $XML::Sig::DEBUG
373 0 10 unless $i
395 0 10 unless $id
419 0 21 if $XML::Sig::DEBUG
448 0 21 if $XML::Sig::DEBUG
452 0 42 if $XML::Sig::DEBUG
453 21 21 if ($alg eq 'http://www.w3.org/2000/09/xmldsig#enveloped-signature') { }
0 21 elsif ($alg eq 'http://www.w3.org/TR/2001/REC-xml-c14n-20010315') { }
0 21 elsif ($alg eq 'http://www.w3.org/TR/2001/REC-xml-c14n-20010315#WithComments') { }
21 0 elsif ($alg eq 'http://www.w3.org/2001/10/xml-exc-c14n#') { }
0 0 elsif ($alg eq 'http://www.w3.org/2001/10/xml-exc-c14n#WithComments') { }
459 0 0 if $XML::Sig::DEBUG
463 0 0 if $XML::Sig::DEBUG
468 0 21 if $XML::Sig::DEBUG
473 0 0 if $XML::Sig::DEBUG
500 1 0 if ($child)
535 2 0 if $rsa_pub->verify($canonical, $bin_signature)
554 0 5 if ref $cert
592 0 5 if $@
632 14 0 if ($rsa_pub->verify($canonical, $bin_signature))
735 5 0 if $dsa_pub->do_verify($self->{'digest_method'}->($canonical), $sigobj)
754 21 10 if ($context) { }
769 0 0 if ($node) { }
781 0 0 if (defined $self->{'dsig_prefix'} and length $self->{'dsig_prefix'})
831 0 3 if $@
835 3 0 if ($dsa_key) { }
882 9 0 if ($rsaKey) { }
887 6 3 if (not $self->{'x509'})
932 0 0 if ($x509Key) { }
961 0 6 if $@
964 6 0 if (open my $CERT, '<', $file) { }
971 6 0 if ($cert) { }
1007 0 1 if $@
1011 1 0 if ($cert) { }
1037 13 1 if (open my $KEY, '<', $file) { }
1043 11 2 if ($text =~ /BEGIN ([DR]SA) PRIVATE KEY/) { }
1 1 elsif ($text =~ /BEGIN PRIVATE KEY/) { }
0 1 elsif ($text =~ /BEGIN CERTIFICATE/) { }
1046 8 3 if ($key_used eq 'RSA') { }
1155 0 31 if $XML::Sig::DEBUG
1163 0 31 if $XML::Sig::DEBUG
1164 1 30 if ($alg eq 'http://www.w3.org/TR/2001/REC-xml-c14n-20010315') { }
24 6 elsif ($alg eq 'http://www.w3.org/TR/2001/REC-xml-c14n-20010315#WithComments') { }
0 6 elsif ($alg eq 'http://www.w3.org/TR/2008/REC-xml-c14n11-20080502') { }
0 6 elsif ($alg eq 'http://www.w3.org/TR/2008/REC-xml-c14n11-20080502#WithComments') { }
6 0 elsif ($alg eq 'http://www.w3.org/2001/10/xml-exc-c14n#') { }
0 0 elsif ($alg eq 'http://www.w3.org/2001/10/xml-exc-c14n#WithComments') { }
1165 0 1 if $XML::Sig::DEBUG
1169 0 24 if $XML::Sig::DEBUG
1173 0 0 if $XML::Sig::DEBUG
1177 0 0 if $XML::Sig::DEBUG
1181 0 6 if $XML::Sig::DEBUG
1185 0 0 if $XML::Sig::DEBUG