line |
true |
false |
branch |
69
|
0 |
298 |
unless $translator_cr |
85
|
2144 |
1416 |
if substr($key, 0, 4) ne 'OID_' |
88
|
1353 |
63 |
if ('SCALAR' eq ref $ns->{$key}) { } |
|
63 |
0 |
elsif (*{$ns->{$key};}{'CODE'}) { } |
104
|
0 |
528 |
if (not &try(sub {
$_->isa('Crypt::Perl::X::ECDSA::NoCurveForOID');
}
)) |
110
|
528 |
888 |
unless $db_hex_data_hr |
113
|
849 |
234 |
if $hex_data{$k} ne $db_hex_data_hr->{$k} |
129
|
0 |
78 |
if (defined $hex_data{$k} and $hex_data{$k} ne $db_hex_data_hr->{$k}) |
169
|
728 |
1218 |
unless $getter_cr |
174
|
721 |
497 |
unless $data{'seed'} |