| blib/lib/Device/Modem.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 92 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 95 | 0 | 0 | 0 | $aOpt{'ostype'} eq 'windoze' and $aOpt{'log'} =~ /syslog/i |
| 114 | 0 | 0 | 0 | ref $aOpt{'_log'} and $aOpt{'_log'}->can('loglevel') |
| 383 | 0 | 0 | 0 | defined $position and $number |
| 541 | 0 | 0 | 0 | $iter < $aOpt{'max_reset_iter'} and $ok < 2 |
| 0 | 0 | 0 | $iter < $aOpt{'max_reset_iter'} and $ok < 2 and $blank < 3 | |
| 546 | 0 | 0 | 0 | $rslt and $rslt =~ /^OK/ |
| 603 | 0 | 0 | 0 | defined $$self{'CONNECTED'} and $$self{'CONNECTED'} == 1 |
| 0 | 0 | 0 | defined $port_obj && $port_obj | |
| 0 | 0 | 0 | defined $$self{'CONNECTED'} and $$self{'CONNECTED'} == 1 and not defined $port_obj && $port_obj | |
| 623 | 0 | 0 | 0 | defined $port_obj and $port_obj |
| 687 | 0 | 0 | 0 | defined $expect && $expect ne '' |
| 701 | 0 | 0 | 0 | defined $timeout and $timeout > 0 |
| 713 | 0 | 0 | 0 | defined $what and $howmany > 0 |
| 722 | 0 | 0 | 0 | defined $copy && $copy =~ /$expect/ |
| 781 | 0 | 0 | 0 | defined $buff and $buff ne '' |
| line | l | !l | condition |
|---|---|---|---|
| 92 | 0 | 0 | $aOpt{'log'} ||= 'file' |
| 96 | 0 | 0 | $aOpt{'loglevel'} ||= 'warning' |
| 137 | 0 | 0 | $timeout ||= 30 |
| 232 | 0 | 0 | $self->options->{'port'} || '' |
| 488 | 0 | 0 | $aOpt{'max_reset_iter'} ||= 0 |
| 567 | 0 | 0 | $me->send_init_string($init_string) || '' |
| 689 | 0 | 0 | $expect || '' |
| 699 | 0 | 0 | $timeout || 'undef' |
| 747 | 0 | 0 | $answer || '' |
| 767 | 0 | 0 | $answer || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 78 | 0 | 0 | 0 | ref $proto || $proto |
| 89 | 0 | 0 | 0 | $aOpt{'port'} ||= $Device::Modem::DEFAULT_PORT |
| 140 | 0 | 0 | 0 | $mode =~ /VOICE/i or $number =~ /;/ |
| 191 | 0 | 0 | 0 | index($ans, 'CONNECT') > -1 or index($ans, 'RING') > -1 |
| 483 | 0 | 0 | 0 | $aOpt{'baudrate'} ||= $Device::Modem::BAUDRATE |
| 484 | 0 | 0 | 0 | $aOpt{'databits'} ||= $Device::Modem::DATABITS |
| 485 | 0 | 0 | 0 | $aOpt{'parity'} ||= $Device::Modem::PARITY |
| 486 | 0 | 0 | 0 | $aOpt{'stopbits'} ||= $Device::Modem::STOPBITS |
| 487 | 0 | 0 | 0 | $aOpt{'handshake'} ||= $Device::Modem::HANDSHAKE |