| line |
true |
false |
branch |
|
286
|
26 |
1 |
if ($cert->can($method))
|
|
320
|
32 |
25 |
if ($method eq 'toStringEC14N') { }
|
|
336
|
22 |
6 |
if defined $target
|
|
801
|
0 |
25 |
if $self->key_type eq "dsa" and $self->signature_method ne "http://www.w3.org/2000/09/xmldsig#dsa-sha1"
|
|
805
|
0 |
25 |
unless exists $self->namespaces->{$self->tag_namespace}
|
|
806
|
0 |
25 |
unless exists $self->tune_cert_cbs->{$self->signature_method}
|
|
807
|
5 |
20 |
if (defined $self->key_file and not defined $self->sign_cert)
|
|
809
|
0 |
5 |
unless $result
|
|
826
|
69 |
0 |
unless defined $xml
|
|
827
|
69 |
0 |
unless defined $ns
|
|
869
|
0 |
21 |
unless $sig and $digest
|
|
877
|
1 |
17 |
if $#{$list;} == -1
|
|
891
|
21 |
1 |
unless defined $x
|
|
894
|
0 |
22 |
unless $result
|
|
898
|
0 |
22 |
unless $result
|
|
902
|
0 |
22 |
unless $result
|
|
906
|
0 |
22 |
unless $result
|
|
911
|
0 |
22 |
unless $value eq $cmp
|
|
940
|
17 |
29 |
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")
|
|
944
|
1 |
16 |
if ($rawprefixes ne "")
|
|
949
|
1 |
16 |
$rawprefixes ? :
|
|
955
|
0 |
23 |
unless @data > -1
|
|
968
|
0 |
23 |
unless defined $id
|
|
972
|
0 |
23 |
unless defined $node
|
|
987
|
0 |
23 |
unless defined $digest_value
|
|
988
|
0 |
23 |
unless exists $self->digest_cbs->{$digest_value}
|
|
1001
|
0 |
23 |
unless defined $digest_value
|
|
1014
|
21 |
1 |
unless defined $x
|
|
1020
|
17 |
5 |
if (my $string = $x->findvalue($x509_path)) { }
|
|
|
4 |
1 |
elsif ($x->findvalue($rsa_path)) { }
|
|
|
1 |
0 |
elsif ($x->findvalue($dsa_path)) { }
|
|
1021
|
0 |
17 |
unless defined $string
|
|
1049
|
0 |
4 |
unless defined $value
|
|
1052
|
3 |
1 |
$dsa_pub->can($opt) ? :
|
|
1058
|
1 |
0 |
if $dsa_pub->verify(&sha1($ref->{'xml'}), $ref->{'sig'})
|
|
1083
|
25 |
230 |
unless &looks_like_number($nth)
|
|
1097
|
0 |
22 |
unless $result
|
|
1114
|
1 |
16 |
if (defined $self->cacert)
|
|
1117
|
0 |
1 |
unless $ca->verify($cert)
|
|
1118
|
0 |
1 |
if ($@)
|
|
1121
|
0 |
1 |
if defined $result
|
|
1130
|
0 |
17 |
unless $rsa_pub->verify($ref->{'xml'}, $ref->{'sig'})
|
|
1151
|
0 |
22 |
unless $result
|
|
1155
|
0 |
22 |
unless $result
|
|
1158
|
0 |
22 |
unless $result
|
|
1162
|
0 |
22 |
unless $result
|
|
1184
|
0 |
4 |
if $mod =~ /^\s*$/su
|
|
1188
|
0 |
4 |
if $exp =~ /^\s*$/su
|
|
1199
|
0 |
4 |
unless $rsa_pub->verify($ref->{'xml'}, $ref->{'sig'})
|
|
1213
|
0 |
22 |
unless $result
|
|
1220
|
0 |
44 |
unless $result
|
|
1235
|
0 |
22 |
unless $result
|
|
1240
|
0 |
22 |
unless $result
|
|
1265
|
0 |
22 |
unless $#{$data;} > -1
|
|
1278
|
0 |
22 |
unless defined $encoded
|
|
1294
|
0 |
29 |
unless defined $node
|
|
1311
|
0 |
22 |
unless defined $method_url
|
|
1324
|
0 |
27 |
unless exists $self->tune_cert_cbs->{$method}
|
|
1357
|
0 |
79 |
unless exists $self->mutate_cbs->{$type}
|
|
1467
|
0 |
6 |
unless defined $file
|
|
1468
|
0 |
6 |
unless -r $file
|
|
1471
|
0 |
6 |
unless $io
|
|
1487
|
5 |
1 |
if ($text =~ /BEGIN ([DR]SA) PRIVATE KEY/su) { }
|
|
|
0 |
1 |
elsif ($text =~ /BEGIN PRIVATE KEY/u) { }
|
|
|
1 |
0 |
elsif ($text =~ /BEGIN CERTIFICATE/u) { }
|
|
1489
|
4 |
1 |
if ($1 eq 'RSA') { }
|
|
1516
|
0 |
4 |
unless $rsaKey
|
|
1533
|
0 |
1 |
unless $x509Key
|
|
1549
|
0 |
1 |
unless $dsa_key
|
|
1564
|
0 |
7 |
unless defined $node
|
|
1578
|
0 |
6 |
unless defined $node
|
|
1592
|
0 |
5 |
unless defined $self->sign_cert
|
|
1595
|
0 |
5 |
if $total == 0
|
|
1598
|
0 |
6 |
unless $result
|
|
1615
|
0 |
6 |
unless $result
|
|
1619
|
0 |
6 |
unless $result
|
|
1633
|
0 |
6 |
unless $result
|
|
1639
|
0 |
12 |
unless $result
|
|
1648
|
1 |
5 |
if ($self->key_type eq 'dsa') { }
|
|
|
5 |
0 |
elsif ($self->key_type eq 'rsa') { }
|
|
1654
|
0 |
5 |
unless $result
|
|
1699
|
1 |
4 |
if (defined(my $file = $self->cert_file)) { }
|
|
|
0 |
4 |
elsif (defined $self->cert_string) { }
|
|
1701
|
1 |
0 |
if ($result) { }
|
|
1724
|
1 |
4 |
if $result
|