Branch Coverage

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


line true false branch
17 0 1 if (index($^O, 'Win') >= 0) { }
81 0 0 if index($aOpt{'ostype'}, 'Win') >= 0
95 0 0 if $aOpt{'ostype'} eq 'windoze' and $aOpt{'log'} =~ /syslog/i
98 0 0 if (not ref $aOpt{'log'}) { }
103 0 0 if (not $@) { }
114 0 0 if (ref $aOpt{'_log'} and $aOpt{'_log'}->can('loglevel'))
140 0 0 if (not defined $mode) { }
0 0 elsif ($mode =~ /VOICE/i or $number =~ /;/) { }
153 0 0 if ($self->flag('CARRIER'))
159 0 0 unless (defined $number)
173 0 0 if ($mode eq 'VOICE')
179 0 0 if (length $number == 1) { }
191 0 0 if (index($ans, 'CONNECT') > -1 or index($ans, 'RING') > -1)
199 0 0 wantarray ? :
206 0 0 $lEnable ? :
207 0 0 $lEnable ? :
219 0 0 unless ($ok)
235 0 0 if ($self->flag('CARRIER')) { }
254 0 0 unless ($lOk)
285 0 0 unless $register
290 0 0 if (@_) { }
297 0 0 index($self->answer, 'OK') != -1 ? :
304 0 0 if (index($ok, 'OK') != -1) { }
368 0 0 unless defined $profile
383 0 0 unless (defined $position and $number)
396 0 0 if (index($self->answer, 'OK') != -1) { }
412 0 0 $lEnable ? :
413 0 0 $lEnable ? :
434 0 0 if @_
452 0 0 unless defined $cInit
454 0 0 if ($cInit)
464 0 0 if (ref $$me{'_log'}) { }
476 0 0 if (@_)
494 0 0 if ($me->ostype eq 'windoze') { }
501 0 0 unless (ref $me->port)
521 0 0 if ($oPort->can('read_interval'))
529 0 0 unless ($oPort->write_settings)
546 0 0 if ($rslt and $rslt =~ /^OK/) { }
551 0 0 if (not $rslt) { }
557 0 0 if ($aOpt{'max_reset_iter'})
563 0 0 defined $me->options->{'init_string'} ? :
588 0 0 @_ ? :
596 0 0 if (@_)
603 0 0 if (defined $$self{'CONNECTED'} and $$self{'CONNECTED'} == 1 and not defined $port_obj && $port_obj)
614 0 0 unless ($connect_options)
623 0 0 unless (defined $port_obj and $port_obj)
653 0 0 unless defined $ret
669 0 0 if $me->ostype eq 'windoze'
673 0 0 unless $port
683 0 0 unless defined $expect
684 0 0 unless defined $timeout
689 0 0 $timeout ? :
701 0 0 if (defined $timeout and $timeout > 0)
703 0 0 if $end_time == $start_time
713 0 0 if (defined $what and $howmany > 0) { }
0 0 elsif ($end_time > 0) { }
719 0 0 if (defined $expect)
722 0 0 defined $copy && $copy =~ /$expect/ ? :
723 0 0 if $done
729 0 0 time >= $end_time ? :
732 0 0 if ($done)
762 0 0 if (defined $answer)
781 0 0 if (defined $buff and $buff ne '') { }
795 0 0 wantarray ? :