Branch Coverage

blib/lib/XML/Sig/OO.pm
Criterion Covered Total %
branch 30 170 17.6


line true false branch
302 0 0 if ($cert->can($method))
336 2 0 if ($method eq 'toStringEC14N') { }
352 1 0 if defined $target
817 0 2 if $self->key_type eq "dsa" and $self->signature_method ne "http://www.w3.org/2000/09/xmldsig#dsa-sha1"
821 0 2 unless exists $self->namespaces->{$self->tag_namespace}
822 0 2 unless exists $self->tune_cert_cbs->{$self->signature_method}
823 0 2 if (defined $self->key_file and not defined $self->sign_cert)
825 0 0 unless $result
842 2 0 unless defined $xml
843 2 0 unless defined $ns
885 0 0 unless $sig and $digest
893 0 0 if $#{$list;} == -1
907 0 1 unless defined $x
910 0 1 unless $result
914 0 1 unless $result
918 0 1 unless $result
922 0 1 unless $result
927 0 1 unless $value eq $cmp
954 2 2 if ($algo eq "http://www.w3.org/2001/10/xml-exc-c14n#" or $algo eq "http://www.w3.org/2001/10/xml-exc-c14n#WithComments")
957 0 2 if ($rawprefixes ne "")
960 0 2 $rawprefixes ? :
966 0 2 unless $#{$data;} > -1
979 0 2 unless defined $id
983 0 2 unless defined $node
998 0 2 unless defined $digest_value
999 0 2 unless exists $self->digest_cbs->{$digest_value}
1012 0 2 unless defined $digest_value
1025 0 0 unless defined $x
1031 0 0 if (my $string = $x->findvalue($x509_path)) { }
0 0 elsif ($x->findvalue($rsa_path)) { }
0 0 elsif ($x->findvalue($dsa_path)) { }
1032 0 0 unless defined $string
1060 0 0 unless defined $value
1063 0 0 $dsa_pub->can($opt) ? :
1069 0 0 if $dsa_pub->verify(&sha1($ref->{'xml'}), $ref->{'sig'})
1094 5 5 unless &looks_like_number($nth)
1108 0 0 unless $result
1126 0 0 if (not $self->nocacheck and defined $self->cacert)
1129 0 0 unless $ca->verify($cert)
1130 0 0 if ($@)
1133 0 0 if defined $result
1142 0 0 unless $rsa_pub->verify($ref->{'xml'}, $ref->{'sig'})
1163 0 0 unless $result
1167 0 0 unless $result
1170 0 0 unless $result
1174 0 0 unless $result
1196 0 0 if $mod =~ /^\s*$/su
1200 0 0 if $exp =~ /^\s*$/su
1211 0 0 unless $rsa_pub->verify($ref->{'xml'}, $ref->{'sig'})
1225 0 1 unless $result
1232 0 2 unless $result
1247 0 0 unless $result
1252 0 0 unless $result
1277 0 0 unless $#{$data;} > -1
1290 0 0 unless defined $encoded
1306 0 1 unless defined $node
1323 0 0 unless defined $method_url
1336 0 0 unless exists $self->tune_cert_cbs->{$method}
1369 0 3 unless exists $self->mutate_cbs->{$type}
1479 0 0 unless defined $file
1480 0 0 unless -r $file
1483 0 0 unless $io
1499 0 0 if ($text =~ /BEGIN ([DR]SA) PRIVATE KEY/su) { }
0 0 elsif ($text =~ /BEGIN PRIVATE KEY/u) { }
0 0 elsif ($text =~ /BEGIN CERTIFICATE/u) { }
1501 0 0 if ($1 eq 'RSA') { }
1528 0 0 unless $rsaKey
1545 0 0 unless $x509Key
1561 0 0 unless $dsa_key
1576 0 0 unless defined $node
1590 0 0 unless defined $node
1604 0 0 unless defined $self->sign_cert
1607 0 0 if $total == 0
1610 0 0 unless $result
1627 0 0 unless $result
1631 0 0 unless $result
1645 0 0 unless $result
1651 0 0 unless $result
1660 0 0 if ($self->key_type eq 'dsa') { }
0 0 elsif ($self->key_type eq 'rsa') { }
1666 0 0 unless $result
1711 0 0 if (defined(my $file = $self->cert_file)) { }
0 0 elsif (defined $self->cert_string) { }
1713 0 0 if ($result) { }
1736 0 0 if $result