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 |