Branch Coverage

blib/lib/XML/Enc.pm
Criterion Covered Total %
branch 68 108 62.9


line true false branch
72 0 113 unless $SYMMETRIC->{$algo}
84 0 2 unless $ENC_DIGEST->{$algo}
97 64 0 if (exists $params->{'key'})
101 52 12 if (exists $params->{'cert'})
105 64 0 if (exists $params->{'no_xml_declaration'})
106 64 0 $params->{'no_xml_declaration'} ? :
109 49 15 exists $params->{'data_enc_method'} ? :
112 49 15 exists $params->{'key_transport'} ? :
115 35 29 exists $params->{'oaep_mgf_alg'} ? :
118 2 62 exists $params->{'oaep_params'} ? :
139 0 63 unless $xpc->exists("//xenc:EncryptedData")
141 0 63 unless $self->{'key_obj'}
164 1 61 unless $key
190 0 1 unless $key
193 0 1 unless $encrypted_nodes->size
218 64 0 unless $name
248 0 62 if (($node->parentNode->localname // "") eq "EncryptedID")
282 125 0 if $nodes->size
292 125 0 if $nodes->size
302 35 28 if $value
312 3 122 if $value
323 2 61 if $value
360 1 50 if ($self->{'oaep_params'} ne "")
387 64 0 exists $methods{$method} ? :
462 41 21 unless ($method =~ /gcm/)
475 0 21 unless $gcm->decrypt_done($tag)
496 21 30 if ($method =~ /gcm/)
519 62 1 unless $@
531 12 51 if ($algo eq "http://www.w3.org/2001/04/xmlenc#rsa-1_5")
535 16 35 if ($algo eq "http://www.w3.org/2001/04/xmlenc#rsa-oaep-mgf1p")
547 35 0 if ($algo eq "http://www.w3.org/2009/xmlenc11#rsa-oaep")
569 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') { }
581 0 51 if $DEBUG
605 0 51 if ($xpc->findvalue('dsig:KeyInfo/dsig:RetrievalMethod/@Type', $context) eq 'http://www.w3.org/2001/04/xmlenc#EncryptedKey') { }
612 0 0 unless ($keyinfo)
680 64 0 if (open my $KEY, '<', $file) { }
685 0 64 if ($text =~ /BEGIN ([DR]SA) PRIVATE KEY/) { }
0 64 elsif ($text =~ /BEGIN EC PRIVATE KEY/) { }
64 0 elsif ($text =~ /BEGIN PRIVATE KEY/) { }
0 0 elsif ($text =~ /BEGIN CERTIFICATE/) { }
688 0 0 if ($key_used eq 'RSA') { }
734 0 64 if $@
738 64 0 if ($rsaKey) { }
742 64 0 if (not $self->{'x509'})
779 0 0 if $@
784 0 0 if ($x509Key) { }
813 0 52 if $@
816 0 52 unless (-r $file)
819 0 52 unless open my $CERT, "<", $file
826 0 52 unless $cert
887 1 50 if ($self->{'oaep_params'} ne "")
896 35 16 if ($self->{'key_transport'} eq "http://www.w3.org/2009/xmlenc11#rsa-oaep")