Branch Coverage

blib/lib/XML/Enc.pm
Criterion Covered Total %
branch 70 110 63.6


line true false branch
72 0 114 unless $SYMMETRIC->{$algo}
84 0 2 unless $ENC_DIGEST->{$algo}
97 65 0 if (exists $params->{'key'})
101 52 13 if (exists $params->{'cert'})
105 65 0 if (exists $params->{'no_xml_declaration'})
106 65 0 $params->{'no_xml_declaration'} ? :
109 49 16 exists $params->{'data_enc_method'} ? :
112 49 16 exists $params->{'key_transport'} ? :
115 35 30 exists $params->{'oaep_mgf_alg'} ? :
118 2 63 exists $params->{'oaep_params'} ? :
139 0 64 unless $xpc->exists("//xenc:EncryptedData")
141 0 64 unless $self->{'key_obj'}
164 1 62 unless $key
190 0 1 unless $key
193 0 1 unless $encrypted_nodes->size
218 65 0 unless $name
244 61 2 if ($new)
251 0 2 if (($node->parentNode->localname // "") eq "EncryptedID")
285 127 0 if $nodes->size
295 127 0 if $nodes->size
305 35 29 if $value
315 3 124 if $value
326 2 62 if $value
363 1 50 if ($self->{'oaep_params'} ne "")
390 65 0 exists $methods{$method} ? :
465 42 21 unless ($method =~ /gcm/)
478 0 21 unless $gcm->decrypt_done($tag)
499 21 30 if ($method =~ /gcm/)
522 63 1 unless $@
534 12 52 if ($algo eq "http://www.w3.org/2001/04/xmlenc#rsa-1_5")
538 17 35 if ($algo eq "http://www.w3.org/2001/04/xmlenc#rsa-oaep-mgf1p")
550 35 0 if ($algo eq "http://www.w3.org/2009/xmlenc11#rsa-oaep")
572 7 44 if ($keymethod eq 'http://www.w3.org/2001/04/xmlenc#rsa-1_5') { }
9 35 elsif ($keymethod eq 'http://www.w3.org/2001/04/xmlenc#rsa-oaep-mgf1p') { }
35 0 elsif ($keymethod eq 'http://www.w3.org/2009/xmlenc11#rsa-oaep') { }
584 0 51 if $DEBUG
608 0 51 if ($xpc->findvalue('dsig:KeyInfo/dsig:RetrievalMethod/@Type', $context) eq 'http://www.w3.org/2001/04/xmlenc#EncryptedKey') { }
615 0 0 unless ($keyinfo)
683 65 0 if (open my $KEY, '<', $file) { }
688 0 65 if ($text =~ /BEGIN ([DR]SA) PRIVATE KEY/) { }
0 65 elsif ($text =~ /BEGIN EC PRIVATE KEY/) { }
65 0 elsif ($text =~ /BEGIN PRIVATE KEY/) { }
0 0 elsif ($text =~ /BEGIN CERTIFICATE/) { }
691 0 0 if ($key_used eq 'RSA') { }
737 0 65 if $@
741 65 0 if ($rsaKey) { }
745 65 0 if (not $self->{'x509'})
782 0 0 if $@
787 0 0 if ($x509Key) { }
816 0 52 if $@
819 0 52 unless (-r $file)
822 0 52 unless open my $CERT, "<", $file
829 0 52 unless $cert
890 1 50 if ($self->{'oaep_params'} ne "")
899 35 16 if ($self->{'key_transport'} eq "http://www.w3.org/2009/xmlenc11#rsa-oaep")