Branch Coverage

blib/lib/Crypt/Perl/ECDSA/EC/DB.pm
Criterion Covered Total %
branch 16 20 80.0


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'}