| blib/lib/Net/Telnet/Trango.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 8 | 69 | 11.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 932 | 0 | 0 | 0 | ref $vals eq 'HASH' and $$vals{'Tftpd'} eq 'listen' |
| 953 | 0 | 0 | 0 | ref $vals eq 'HASH' and $$vals{'Tftpd'} eq 'disabled' |
| 1069 | 0 | 0 | 0 | @lines and $last =~ qr/$prompt/ |
| 1076 | 0 | 0 | 0 | $$s{'Decode'} and $cfg{'decode'} |
| 1114 | 0 | 0 | 0 | $$s{'Decode'} and $cfg{'decode'} |
| 1127 | 0 | 0 | 0 | ref $err eq 'HASH' and $$err{'ERR'} |
| 1222 | 43 | 0 | 0 | $key eq 'Checksum' and $last_key |
| 1261 | 0 | 20 | 0 | defined $val and length $val |
| 1293 | 0 | 0 | 0 | defined $decoded and length $decoded |
| 1418 | 0 | 0 | 0 | $decoded and $$decoded{'ERR'} |
| line | l | !l | condition |
|---|---|---|---|
| 79 | 0 | 6 | $args{'Prompt'} ||= '/[\\$#]>\\s*\\r?\\n?$/' |
| 574 | 0 | 0 | shift() || 1600 |
| 575 | 0 | 0 | shift() || 500 |
| 576 | 0 | 0 | shift() || 10 |
| 608 | 0 | 0 | shift() || 'all' |
| 724 | 0 | 0 | $self->cmd('String', 'sudb view', 'expect', $success) || [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 436 | 0 | 0 | 0 | $cmd{'String'} ||= $method |
| 583 | 0 | 0 | 0 | $config{'Timeout'} ||= int $pkt_len * $pkt_cnt * $cycles * 2 / 1000 |
| 607 | 0 | 0 | 0 | shift() || $EMPTY |
| 802 | 0 | 0 | 0 | lc $type eq 'reg' or lc $type eq 'pr' |
| 897 | 0 | 0 | 0 | lc $opt eq 'cir' or lc $opt eq 'mir' |
| 1026 | 0 | 0 | 0 | $cfg{'Timeout'} ||= $self->Timeout |
| 1107 | 0 | 0 | 0 | not $cfg{'expect'} or $last =~ /$cfg{'expect'}$/ |
| 1203 | 43 | 0 | 612 | $c eq '[' or $c eq "\r" |
| 43 | 20 | 592 | $c eq '[' or $c eq "\r" or $c eq "\n" |