| lib/Encoding/BER.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 47 | 86 | 54.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 390 | 1 | 0 | 112 | $defp and defined $leng |
| 457 | 23 | 0 | 21 | ref $val and $val->can('as_hex') |
| 483 | 4 | 6 | 26 | $val >= -128 and $val < 128 |
| 502 | 6 | 0 | 6 | ref $val and $val->can('bcmp') |
| 589 | 3 | 1 | 29 | $exp >= -128 and $exp < 128 |
| 748 | 0 | 0 | 157 | $AKATAG{$name} and $ALLTAG{$AKATAG{$name}} |
| 827 | 111 | 0 | 0 | $rclass and $rclass ne $class |
| 887 | 150 | 0 | 21 | ref $d and UNIVERSAL::isa($d, 'Math::BigInt') |
| 928 | 0 | 0 | 8 | $val and defined $val->{'type'} |
| 1278 | 27 | 0 | 0 | _have_math_bigint() and length $data > 4 |
| 1282 | 0 | 0 | 0 | $sgnd and $sign |
| line | l | !l | condition |
|---|---|---|---|
| 353 | 20 | 93 | $levl || 0 |
| 372 | 1 | 4 | $levl || 0 |
| 784 | 0 | 113 | $func ||= 'e' |
| 793 | 2 | 0 | $class ||= 'universal' |
| 794 | 2 | 0 | $type ||= 'primitive' |
| 821 | 14 | 97 | $class ||= 'universal' |
| 822 | 18 | 93 | $rtype || $type || 'primitive' |
| 954 | 31 | 1 | $datlen || 0 |
| 1022 | 30 | 0 | $decfnc ||= \&Encoding::BER::decode_unknown |
| 1093 | 32 | 0 | $more || $tval & 31 || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 354 | 9 | 55 | 49 | $me->{'acanonical'} or not $me->behaves_like_a_hash($data) |
| 361 | 0 | 113 | 0 | $me->rule_check_and_apply($data) || $data |
| 457 | 21 | 1 | 22 | ref $val and $val->can('as_hex') or length $val > 8 |
| 502 | 6 | 0 | 6 | ref $val and $val->can('bcmp') or length $val > 8 |
| 568 | 0 | 0 | 29 | $data->{'flavor'} or $me->{'flavor'} |
| 838 | 0 | 15 | 0 | $encf ||= $th->{$func} |
| 855 | 0 | 0 | 5 | $data->{'flavor'} || $me->{'flavor'} |
| 1016 | 30 | 0 | 0 | $typval or $typmore |
| 1027 | 0 | 0 | 0 | &$pretty($me, $val) || $val |
| 1037 | 0 | 0 | 0 | &$c($me, $result) || $result |
| 1117 | 0 | 0 | 32 | $tp ||= $th->{'pretty'} |