| blib/lib/Convert/BER.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 72 | 25.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 379 | 32 | 167 | 0 | defined $expect and $tag != $expect |
| 540 | 0 | 0 | 0 | @seqend and $$ber[1] >= $seqend[0] |
| 552 | 0 | 0 | 0 | $tag == 0 and $len == 0 |
| 871 | 0 | 0 | 0 | $p - $pos == 2 and substr($$ber[0], -2) eq "\000\000" |
| 968 | 0 | 0 | 1 | defined CORE::recv($sock, $$ber[0], $n, Socket::MSG_PEEK()) and not $! |
| 986 | 0 | 0 | 1 | defined($len = eval { do { $$ber[1] = 0; unpack_tag($ber); unpack_length($ber) + $$ber[1] } }) and $len >= $$ber[1] |
| 1001 | 0 | 0 | 0 | defined CORE::recv($sock, $$ber[0], $n, Socket::MSG_PEEK()) and not $! |
| 1021 | 0 | 0 | 1 | defined $$ber[4] and not $! |
| 1273 | 46 | 3 | 2 | $msb and not $neg |
| 46 | 3 | 0 | $neg and not $msb | |
| 1284 | 0 | 48 | 0 | ref $arg and ref $$arg |
| 1778 | 0 | 0 | 0 | $elen >= 0 and $elen <= 3 |
| line | l | !l | condition |
|---|---|---|---|
| 261 | 43 | 1 | $e ||= 0 |
| 476 | 0 | 0 | $pos ||= 0 |
| 558 | 0 | 0 | $type{sprintf '%02X', $tag & 18446744073709551583} || $type{sprintf '%02X', $tag & 192} || 'UNIVERSAL [%d]' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 53 | 0 | 0 | 0 | ref $obj || $obj |
| 209 | 0 | 32 | 0 | ref $pkg || $pkg |
| 284 | 79 | 76 | 0 | ref $package || $package |
| 1273 | 2 | 0 | 49 | $msb and not $neg or $neg and not $msb |
| 1822 | 0 | 0 | 0 | $self->isa('Convert::BER::TimeUL') || $self->isa('Convert::BER::TimeGL') |
| 1824 | 0 | 0 | 0 | $self->isa('Convert::BER::TimeGL') || $self->isa('Convert::BER::TimeGZ') |
| 1833 | 0 | 0 | 0 | $d == 1 or $d < -1 |
| 1856 | 0 | 0 | 0 | $self->isa('Convert::BER::TimeGL') || $self->isa('Convert::BER::TimeGZ') |
| 1896 | 0 | 0 | 0 | $n < 0 or $i > @$arg |
| 1935 | 0 | 0 | 0 | $err || sprintf("Cannot decode CHOICE, found tag 0x%X\n", $want) |