Branch Coverage

blib/lib/Ivrs.pm

Criterion	Covered	Total	%
branch	0	382	0.0

line	true	false	branch
47	0	0	if (defined &SerialJunk::TIOCSER_TEMT)
48	0	0	if (defined &SerialJunk::TIOCM_LE)
144	0	0	if $choice eq $_
156	0	0	unless open LOG, ">>$logfile.$$self{'NAME'}"
161	0	0	if $tmpdir ne ''
163	0	0	unless ($quiet or $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::rtsout and $Ivrs::dtrout)
164	0	0	unless nocarp()
168	0	0	if ($lockfile) { }
175	0	0	unless (defined $lockf)
176	0	0	unless ($quiet)
177	0	0	unless nocarp()
179	0	0	if $quiet
185	0	0	unless $ok and defined $ok2
197	0	0	unless (defined $$self{'FD'})
198	0	0	unless ($$self{'FD'} >= 1)
199	0	0	unless ($quiet)
200	0	0	unless nocarp()
203	0	0	if ($$self{'LOCK'})
205	0	0	unless ($ok or $quiet)
206	0	0	unless nocarp()
210	0	0	if $quiet
222	0	0	unless ($ok)
284	0	0	if ($Babble)
291	0	0	unless @_ == 2
296	0	0	unless $wanted > 0
306	0	0	if ($size > $bufsize)
308	0	0	if ($count_in) { }
	0	0	elsif ($done) { }
316	0	0	unless defined $count_in
324	0	0	unless @_ == 2
329	0	0	unless $wanted > 0
331	0	0	if ($$self{'C_VMIN'} != $wanted)
347	0	0	unless (defined $got)
349	0	0	if &POSIX::EAGAIN == ($ok = POSIX::errno())
350	0	0	if not $ready and 0 == $ok
356	0	0	if $Babble
361	0	0	unless @_ == 1
367	0	0	if (nocarp() and $$self{'_T_INPUT'})
373	0	0	if ($$self{'C_VMIN'})
380	0	0	unless (defined $got)
381	0	0	if ($got == -1)
382	0	0	if &POSIX::EAGAIN == ($ok = POSIX::errno())
383	0	0	if 0 == $ok
390	0	0	unless @_ == 2
395	0	0	if $wbuf eq ''
404	0	0	if @_
405	0	0	if defined POSIX::tcdrain($$self{'FD'})
411	0	0	if @_
412	0	0	if defined POSIX::tcflush($$self{'FD'}, 2)
417	0	0	unless @_ == 2
418	0	0	unless $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::dtrout
422	0	0	if ($onoff) { }
431	0	0	unless @_ == 2
432	0	0	unless $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::rtsout
436	0	0	if ($onoff) { }
445	0	0	unless @_ == 2
450	0	0	unless $ok
456	0	0	unless @_ == 2
457	0	0	unless $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::rtsout
460	0	0	unless $self->rts_active(1)
463	0	0	unless $self->rts_active(0)
470	0	0	unless @_ == 2
471	0	0	unless $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::dtrout
474	0	0	unless $self->dtr_active(1)
477	0	0	unless $self->dtr_active(0)
484	0	0	unless @_ == 2
485	0	0	unless $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::rtsout
488	0	0	unless $self->rts_active(0)
491	0	0	unless $self->rts_active(1)
498	0	0	unless @_ == 2
499	0	0	unless $Ivrs::bitset and $Ivrs::bitclear and $Ivrs::dtrout
502	0	0	unless $self->dtr_active(0)
505	0	0	unless $self->dtr_active(1)
514	0	0	if (@_)
515	0	0	if (defined $bauds{$_[0]}) { }
521	0	0	if ($$self{'U_MSG'} or $Babble)
527	0	0	if (wantarray)
529	0	0	if $bauds{$item} == $$self{'C_OSPEED'}
535	0	0	if (@_)
536	0	0	if (yes_true(shift())) { }
545	0	0	wantarray ? :
550	0	0	if (@_)
551	0	0	if ($_[0] eq 'none') { }
	0	0	elsif ($_[0] eq 'odd') { }
	0	0	elsif ($_[0] eq 'even') { }
565	0	0	if ($$self{'U_MSG'} or $Babble)
572	0	0	if (wantarray)
573	0	0	unless $$self{'C_IFLAG'} & 16
575	0	0	if $mask == ($$self{'C_CFLAG'} & $mask)
577	0	0	if $mask == ($$self{'C_CFLAG'} & $mask)
583	0	0	if (@_)
584	0	0	if ($_[0] == 8) { }
	0	0	elsif ($_[0] == 7) { }
	0	0	elsif ($_[0] == 6) { }
	0	0	elsif ($_[0] == 5) { }
601	0	0	if ($$self{'U_MSG'} or $Babble)
608	0	0	if (wantarray)
610	0	0	if $mask == 48
611	0	0	if $mask == 32
612	0	0	if $mask == 16
618	0	0	if (@_)
619	0	0	if ($_[0] == 2) { }
	0	0	elsif ($_[0] == 1) { }
626	0	0	if ($$self{'U_MSG'} or $Babble)
633	0	0	if (wantarray)
634	0	0	if $$self{'C_CFLAG'} & 64
641	0	0	if (@_)
642	0	0	if ($_[0] eq 'none') { }
	0	0	elsif ($_[0] eq 'xoff') { }
	0	0	elsif ($_[0] eq 'rts') { }
655	0	0	if ($$self{'U_MSG'} or $Babble)
662	0	0	if (wantarray)
664	0	0	if $mask == ($$self{'C_IFLAG'} & $mask)
665	0	0	if $$self{'C_CFLAG'} & CRTSCTS()
671	0	0	unless @_ == 2
	0	0	if (@_)
672	0	0	wantarray ? :
680	0	0	unless defined $$self{'NAME'}
682	0	0	if ($Babble)
685	0	0	if ($$self{'FD'})
707	0	0	if ($$self{'LOCK'})
708	0	0	unless (unlink $$self{'LOCK'})
709	0	0	unless nocarp()
716	0	0	unless $ok
725	0	0	unless $self->pulse_dtr_on(500)
726	0	0	unless $self->pulse_dtr_off(500)
727	0	0	unless $self->atcomm('ATZ', 'OK')
728	0	0	unless $self->atcomm('AT&C1&D2&K3M2L3', 'OK')
729	0	0	unless $self->atcomm('AT#CLS=8', 'OK')
747	0	0	unless $self->atcomm('AT#VLS=2', 'VCON')
748	0	0	unless $self->atcomm('ATL3', 'OK')
761	0	0	unless $self->baudrate($baud)
762	0	0	unless $self->parity($parity)
763	0	0	unless $self->databits($data)
764	0	0	unless $self->stopbits($stop)
765	0	0	unless $self->handshake($hand)
767	0	0	unless $self->buffers(0, 0)
777	0	0	unless $self->atcomm('AT#VLS=0', 'OK')
778	0	0	unless $self->atcomm('AT#CLS=8', 'OK')
781	0	0	unless $self->atcomm('ATA', '')
782	0	0	unless $self->atcomm('AT#VLS=2', 'VCON')
783	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
805	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
806	0	0	if $Babble
824	0	0	unless $self->atcomm('ATH', 'OK')
825	0	0	if $Babble
835	0	0	if $dialdelay
841	0	0	if (time - $oltime > $mdtime or $getstr =~ /[b]/)
848	0	0	if $Babble
858	0	0	if $Babble
865	0	0	unless $pfile
867	0	0	if substr($pfile, 0, 1) ne '/'
868	0	0	if $pfile eq ''
869	0	0	unless (-e $playfile)
873	0	0	if $Babble
875	0	0	unless $ndtmf
888	0	0	if $dtmf =~ /[0-9]/ and $ndtmf != 0
889	0	0	if ($dtmf =~ /[b]/)
894	0	0	if $playfile eq "$tmpmsg"
895	0	0	if ($ndtmf == 0)
896	0	0	unless $self->atcomm("\cP\cX\cP\cC", 'VCON')
897	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
900	0	0	if ($ndtmf == 1)
901	0	0	unless $self->atcomm("\cP\cX\cP\cC", 'VCON')
902	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
903	0	0	if $dtmf
907	0	0	unless $self->atcomm("\cP\cX\cP\cC", 'VCON')
908	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
915	0	0	if $dtmf =~ /[0-9]/
916	0	0	if ($dtmf =~ /[b]/)
920	0	0	if length $rdtmf == $ndtmf * 2 or $dtmf =~ /[#\*]/
922	0	0	unless $self->atcomm("\cP\cX\cP\cC", 'VCON')
923	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
924	0	0	unless $rdtmf =~ /[0-9]/
933	0	0	unless $self->atcomm('AT#VRX', 'CONNECT')
941	0	0	if ($self->input =~ /[b]/)
946	0	0	unless $self->atcomm("\cP\cX\cP\cC", 'VCON')
947	0	0	unless $self->atcomm('AT#VTX', 'CONNECT')
964	0	0	if $Babble
980	0	0	if $num2 != 0
981	0	0	if $num2 != 0
992	0	0	if ($num2 < 21 and $num2 > 0)
996	0	0	if ($num2 > 20)
1000	0	0	if $num3 != 0
1002	0	0	if $num2 != 0
1027	0	0	if $num3 != 0
1028	0	0	if $num3 != 0
1030	0	0	if ($num2 < 21 and $num2 > 0)
1034	0	0	if ($num2 > 20)
1038	0	0	if $num3 != 0
1040	0	0	if $num2 != 0