line |
true |
false |
branch |
69
|
0 |
328 |
unless $translator_cr |
85
|
4544 |
2173 |
if substr($key, 0, 4) ne 'OID_' |
88
|
1353 |
820 |
if ('SCALAR' eq ref $ns->{$key}) { } |
|
820 |
0 |
elsif (*{$ns->{$key};}{'CODE'}) { } |
104
|
0 |
784 |
if (not &try(sub {
$_->isa('Crypt::Perl::X::ECDSA::NoCurveForOID');
}
)) |
110
|
784 |
1389 |
unless $db_hex_data_hr |
113
|
1320 |
434 |
if $hex_data{$k} ne $db_hex_data_hr->{$k} |
129
|
0 |
138 |
if (defined $hex_data{$k} and $hex_data{$k} ne $db_hex_data_hr->{$k}) |
169
|
984 |
1720 |
unless $getter_cr |
174
|
1073 |
647 |
unless $data{'seed'} |