Branch Coverage

blib/lib/Device/Modem.pm
Criterion Covered Total %
branch 1 128 0.7


line true false branch
18 0 2 if (index($^O, 'Win') >= 0) { }
82 0 0 if index($aOpt{'ostype'}, 'Win') >= 0
96 0 0 if $aOpt{'ostype'} eq 'windoze' and $aOpt{'log'} =~ /syslog/i
99 0 0 if (not ref $aOpt{'log'}) { }
104 0 0 if ($@) { }
115 0 0 if (ref $aOpt{'_log'} and $aOpt{'_log'}->can('loglevel'))
141 0 0 if (not defined $mode) { }
0 0 elsif ($mode =~ /VOICE/i or $number =~ /;/) { }
154 0 0 if ($self->flag('CARRIER'))
160 0 0 unless (defined $number)
174 0 0 if ($mode eq 'VOICE')
180 0 0 if (length $number == 1) { }
192 0 0 if (index($ans, 'CONNECT') > -1 or index($ans, 'RING') > -1)
200 0 0 wantarray ? :
207 0 0 $lEnable ? :
208 0 0 $lEnable ? :
220 0 0 unless ($ok)
236 0 0 if ($self->flag('CARRIER')) { }
255 0 0 unless ($lOk)
286 0 0 unless $register
291 0 0 if (@_) { }
298 0 0 index($self->answer, 'OK') != -1 ? :
305 0 0 if (index($ok, 'OK') != -1) { }
369 0 0 unless defined $profile
384 0 0 unless (defined $position and $number)
397 0 0 if (index($self->answer, 'OK') != -1) { }
413 0 0 $lEnable ? :
414 0 0 $lEnable ? :
435 0 0 if @_
453 0 0 unless defined $cInit
455 0 0 if ($cInit)
465 0 0 if (ref $me->{'_log'}) { }
477 0 0 if (@_)
495 0 0 if ($me->ostype eq 'windoze') { }
502 0 0 unless (ref $me->port)
522 0 0 if ($oPort->can('read_interval'))
530 0 0 unless ($oPort->write_settings)
547 0 0 if ($rslt and $rslt =~ /^OK/) { }
552 0 0 if (not $rslt) { }
558 0 0 if ($aOpt{'max_reset_iter'})
565 0 0 defined $me->options->{'init_string'} ? :
590 0 0 @_ ? :
597 0 0 if (@_)
604 0 0 if (defined $self->{'CONNECTED'} and $self->{'CONNECTED'} == 1 and not defined $port_obj && $port_obj)
615 0 0 unless ($connect_options)
624 0 0 unless (defined $port_obj and $port_obj)
654 0 0 unless defined $ret
670 0 0 if $me->ostype eq 'windoze'
674 0 0 unless $port
684 0 0 unless defined $expect
685 0 0 unless defined $timeout
690 0 0 $timeout ? :
702 0 0 if (defined $timeout and $timeout > 0)
704 0 0 if $end_time == $start_time
714 0 0 if (defined $what and $howmany > 0) { }
0 0 elsif ($end_time > 0) { }
720 0 0 if (defined $expect)
723 0 0 defined $copy && $copy =~ /$expect/ ? :
724 0 0 if $done
730 0 0 time >= $end_time ? :
733 0 0 if ($done)
763 0 0 if (defined $answer)
782 0 0 if (defined $buff and $buff ne '') { }
796 0 0 wantarray ? :