blib/lib/Device/Modem.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 92 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
96 | 0 | 0 | 0 | $aOpt{'ostype'} eq 'windoze' and $aOpt{'log'} =~ /syslog/i |
115 | 0 | 0 | 0 | ref $aOpt{'_log'} and $aOpt{'_log'}->can('loglevel') |
384 | 0 | 0 | 0 | defined $position and $number |
542 | 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 | |
547 | 0 | 0 | 0 | $rslt and $rslt =~ /^OK/ |
604 | 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 | |
624 | 0 | 0 | 0 | defined $port_obj and $port_obj |
688 | 0 | 0 | 0 | defined $expect && $expect ne '' |
702 | 0 | 0 | 0 | defined $timeout and $timeout > 0 |
714 | 0 | 0 | 0 | defined $what and $howmany > 0 |
723 | 0 | 0 | 0 | defined $copy && $copy =~ /$expect/ |
782 | 0 | 0 | 0 | defined $buff and $buff ne '' |
line | l | !l | condition |
---|---|---|---|
93 | 0 | 0 | $aOpt{'log'} ||= 'file' |
97 | 0 | 0 | $aOpt{'loglevel'} ||= 'warning' |
138 | 0 | 0 | $timeout ||= 30 |
233 | 0 | 0 | $self->options->{'port'} || '' |
489 | 0 | 0 | $aOpt{'max_reset_iter'} ||= 0 |
568 | 0 | 0 | $me->send_init_string($init_string) || '' |
690 | 0 | 0 | $expect || '' |
700 | 0 | 0 | $timeout || 'undef' |
748 | 0 | 0 | $answer || '' |
768 | 0 | 0 | $answer || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
79 | 0 | 0 | 0 | ref $proto || $proto |
90 | 0 | 0 | 0 | $aOpt{'port'} ||= $Device::Modem::DEFAULT_PORT |
141 | 0 | 0 | 0 | $mode =~ /VOICE/i or $number =~ /;/ |
192 | 0 | 0 | 0 | index($ans, 'CONNECT') > -1 or index($ans, 'RING') > -1 |
484 | 0 | 0 | 0 | $aOpt{'baudrate'} ||= $Device::Modem::BAUDRATE |
485 | 0 | 0 | 0 | $aOpt{'databits'} ||= $Device::Modem::DATABITS |
486 | 0 | 0 | 0 | $aOpt{'parity'} ||= $Device::Modem::PARITY |
487 | 0 | 0 | 0 | $aOpt{'stopbits'} ||= $Device::Modem::STOPBITS |
488 | 0 | 0 | 0 | $aOpt{'handshake'} ||= $Device::Modem::HANDSHAKE |