| line |
true |
false |
branch |
|
88
|
0 |
0 |
if ($host and $port) { } |
|
95
|
0 |
0 |
if () { } |
|
97
|
0 |
0 |
unless conn($self) |
|
99
|
0 |
0 |
unless conn($self) |
|
138
|
0 |
0 |
if ($command =~ /^[(]SayText /) { } |
|
|
0 |
0 |
elsif ($command eq q[(audio_mode 'async)]) { } |
|
141
|
0 |
0 |
if ($type ne $SCHEME and not $data =~ /^#
|
|
146
|
0 |
0 |
if ($type ne $OK) |
|
156
|
0 |
0 |
if ($type ne $SCHEME or $data ne 'async') |
|
161
|
0 |
0 |
if ($type ne $OK) |
|
174
|
0 |
0 |
if ($type ne $SCHEME and not $data =~ /^#
|
|
179
|
0 |
0 |
if ($type ne $OK) |
|
194
|
0 |
0 |
if ($type ne $SCHEME or $data ne 'close') |
|
199
|
0 |
0 |
if ($type ne $OK) |
|
207
|
0 |
0 |
if ($type ne $SCHEME or $data ne 'sync') |
|
212
|
0 |
0 |
if ($type ne $OK) |
|
220
|
0 |
0 |
if ($type ne $SCHEME and not $data =~ /^#
|
|
225
|
0 |
0 |
if ($type ne $OK) |
|
233
|
0 |
0 |
if ($type ne $SCHEME or $data ne 'async') |
|
238
|
0 |
0 |
if ($type ne $OK) |
|
250
|
0 |
0 |
if ($type ne $SCHEME and not $data =~ /^#
|
|
255
|
0 |
0 |
if ($type ne $OK) |
|
269
|
0 |
0 |
if ($type ne $SCHEME and not $data =~ /^#
|
|
274
|
0 |
0 |
if ($type ne $OK) |
|
290
|
0 |
0 |
if ($type ne $SCHEME or $data ne 'shutup') |
|
295
|
0 |
0 |
if ($type ne $OK) |
|
306
|
0 |
0 |
if ($type ne $SCHEME or $data ne 'close') |
|
311
|
0 |
0 |
if ($type ne $OK) |
|
331
|
0 |
0 |
if ($mode ne 'article' and $mode ne 'paragraph' and $mode ne 'sentence' and $mode ne 'clause' and $mode ne 'word' and $mode ne 'letter' and $mode ne 'spell') |
|
346
|
0 |
0 |
if (open my $DSP, '>', '/dev/dsp') { } |
|
364
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
367
|
0 |
0 |
if ($type ne $OK) |
|
388
|
0 |
0 |
if ($name eq $_) |
|
393
|
0 |
0 |
unless $exist |
|
397
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
399
|
0 |
0 |
if ($data eq $name) |
|
401
|
0 |
0 |
if ($type ne $OK) { } |
|
421
|
0 |
0 |
if (defined $stretch) { } |
|
422
|
0 |
0 |
if $stretch <= 0 or $stretch > 10 |
|
425
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
428
|
0 |
0 |
if ($type2 ne $OK) { } |
|
441
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
444
|
0 |
0 |
if ($type2 ne $OK) { } |
|
463
|
0 |
0 |
if (defined $pitch) { } |
|
464
|
0 |
0 |
if $pitch <= 0 or $pitch > 1000 |
|
479
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
482
|
0 |
0 |
if ($type2 ne $OK) |
|
494
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
497
|
0 |
0 |
if ($type2 ne $OK) |
|
512
|
0 |
0 |
if (defined $range) { } |
|
513
|
0 |
0 |
if $range <= 0 or $range > 1000 |
|
528
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
531
|
0 |
0 |
if ($type2 ne $OK) |
|
543
|
0 |
0 |
if ($type eq $SCHEME) { } |
|
546
|
0 |
0 |
if ($type2 ne $OK) { } |
|
564
|
0 |
0 |
if ($type ne $SCHEME) |
|
569
|
0 |
0 |
if ($type ne $OK) |
|
600
|
0 |
0 |
unless ($iaddr = inet_aton($host)) |
|
611
|
0 |
0 |
unless (socket $s, 2, 1, $proto) |
|
618
|
0 |
0 |
unless (connect $s, $paddr) |
|
640
|
0 |
0 |
if (defined $$prop{'C'} and $$prop{'C'}) |
|
665
|
0 |
0 |
if (defined $handler) |
|
695
|
0 |
0 |
if (ref $self) { } |
|
706
|
0 |
0 |
if (myread_n($s, $type, 3) != 3) |
|
713
|
0 |
0 |
if $type eq $OK or $type eq $ERROR |
|
718
|
0 |
0 |
if (myread_upto($s, $data, $end_key) < 0) |
|
737
|
0 |
0 |
unless (defined $type) |
|
744
|
0 |
0 |
if ($type eq $OK) { } |
|
|
0 |
0 |
elsif ($type eq $ERROR) { } |
|
768
|
0 |
0 |
if (length $buffer > 0) |
|
786
|
0 |
0 |
if defined $nr |
|
804
|
0 |
0 |
if $bend > length $key |
|
827
|
0 |
0 |
if ($text eq '') { } |
|
|
0 |
0 |
elsif ($text =~ /$scheme_token/mo) { } |
|
838
|
0 |
0 |
if (defined $str) { } |
|
|
0 |
0 |
elsif (defined $atom) { } |
|
|
0 |
0 |
elsif (defined $sq) { } |
|
|
0 |
0 |
elsif (defined $open) { } |
|
|
0 |
0 |
elsif (defined $close) { } |
|
863
|
0 |
0 |
if not defined $item or $item eq ')' |