| line |
true |
false |
branch |
|
41
|
0 |
0 |
unless $$self{'echo_off'} |
|
42
|
0 |
0 |
if ($$self{'tts_command'}) { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'cepstral') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'espeak') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival_server') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival_pipe') { } |
|
45
|
0 |
0 |
unless system $command |
|
57
|
0 |
0 |
unless $arg |
|
65
|
0 |
0 |
unless $$self{'tts_engine'} eq 'festival_server' |
|
83
|
0 |
0 |
unless $self->voice($voice) |
|
84
|
0 |
0 |
unless $self->rate($rate) |
|
85
|
0 |
0 |
unless $self->volume($vol) |
|
86
|
0 |
0 |
unless $self->pitch($pitch) |
|
94
|
0 |
0 |
if $voice |
|
101
|
0 |
0 |
if $pitch |
|
108
|
0 |
0 |
if $rate |
|
115
|
0 |
0 |
if $vol |
|
124
|
0 |
0 |
if ($$self{'tts_engine'} eq 'festival_server' or $$self{'tts_engine'} eq 'festival_pipe') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'espeak') { } |
|
125
|
0 |
0 |
unless $$self{'handle'}->connected |
|
127
|
0 |
0 |
unless defined(my $kidpid = fork) |
|
129
|
0 |
0 |
if ($kidpid) { } |
|
137
|
0 |
0 |
if /\.|1|voices/ |
|
138
|
0 |
0 |
if /\w_\w/ |
|
150
|
0 |
0 |
if $line =~ /ender/ |
|
154
|
0 |
0 |
if (m[/]) |
|
166
|
0 |
0 |
if ($$self{'handle'}) |
|
167
|
0 |
0 |
if $$self{'handle'}->connected |
|
171
|
0 |
0 |
unless $$self{'handle'} = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $$self{'host'}, 'PeerPort', $$self{'port'}) |
|
184
|
0 |
0 |
if (my $tts = shift()) |
|
193
|
0 |
0 |
if (-e $arg) { } |
|
194
|
0 |
0 |
if ($$self{'tts_file_command'}) { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'cepstral') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'espeak') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival_server' or $$self{'tts_engine'} eq 'festival_pipe') { } |
|
205
|
0 |
0 |
unless open FH, "$arg" |
|
225
|
0 |
0 |
unless my $play = shift() |
|
226
|
0 |
0 |
if (-e $in) { } |
|
227
|
0 |
0 |
if ($$self{'file2wave_command'}) { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'cepstral') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'espeak') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival_server') { } |
|
|
0 |
0 |
elsif ($$self{'tts_engine'} eq 'festival_pipe') { } |
|
255
|
0 |
0 |
unless $rep |
|
266
|
0 |
0 |
unless defined($kidpid = fork) |
|
269
|
0 |
0 |
if ($kidpid) { } |
|
274
|
0 |
0 |
if ($line eq "WV\n") |
|
276
|
0 |
0 |
if ($out) { } |
|
282
|
0 |
0 |
if ($line =~ s/$file_stuff_key(.*)$//s) |
|
294
|
0 |
0 |
if $play |
|
297
|
0 |
0 |
unless open FH, "$in" |
|
314
|
0 |
0 |
if ($#var % 2 == 0) |
|
325
|
0 |
0 |
if (ord $answ == 27) { } |
|
|
0 |
0 |
elsif (ord $answ == 10 or ord $answ == 13 or $answ =~ /[yY]/) { } |
|
|
0 |
0 |
elsif ($answ =~ /\d/ and $str eq '') { } |
|
|
0 |
0 |
elsif ($answ =~ /\w/) { } |
|
328
|
0 |
0 |
if (ord $answ == 91) |
|
330
|
0 |
0 |
if $answ =~ /B/ |
|
331
|
0 |
0 |
if $answ =~ /A/ |
|
332
|
0 |
0 |
if $count == scalar @keys |
|
333
|
0 |
0 |
if $count < 0 |
|
347
|
0 |
0 |
if $test =~ /^\d\. $str/ |
|
362
|
0 |
0 |
if (ord $answ == 27) { } |
|
|
0 |
0 |
elsif (ord $answ == 10 or ord $answ == 13 or ord $answ == 89 or ord $answ == 121) { } |
|
|
0 |
0 |
elsif ($answ =~ /\w/) { } |
|
365
|
0 |
0 |
if (ord $answ == 91) |
|
367
|
0 |
0 |
if $answ =~ /B/ |
|
368
|
0 |
0 |
if $answ =~ /A/ |
|
369
|
0 |
0 |
if $count > $#lst |
|
370
|
0 |
0 |
if $count < 0 |
|
379
|
0 |
0 |
if ($test =~ /^$str/) { } |
|
383
|
0 |
0 |
if $count > $#lst |
|
401
|
0 |
0 |
unless opendir DH, $d |
|
402
|
0 |
0 |
unless my(@dirlst) = sort(readdir DH) |
|
406
|
0 |
0 |
if ($f eq '.' or $f eq '..' or $$self{'no_dot_files'} and $f =~ /^\./) |
|
410
|
0 |
0 |
if (-d "$d/$f") { } |
|
|
0 |
0 |
elsif (-f "$d/$f") { } |
|
415
|
0 |
0 |
if ($answ =~ /[a-zA-Z0-9]/) |
|
417
|
0 |
0 |
if ($dirlst[$c] =~ /^$answ/) |
|
424
|
0 |
0 |
if (ord $answ == 27) { } |
|
|
0 |
0 |
elsif (ord $answ == 10 or ord $answ == 13 or ord $answ == 89 or ord $answ == 121) { } |
|
|
0 |
0 |
elsif (ord $answ == 85 or ord $answ == 117) { } |
|
426
|
0 |
0 |
if (ord $answ == 91) |
|
429
|
0 |
0 |
if $answ =~ /B/ |
|
430
|
0 |
0 |
if $answ =~ /A/ |
|
431
|
0 |
0 |
if $count == scalar @dirlst |
|
432
|
0 |
0 |
if $count < 0 |
|
433
|
0 |
0 |
if ($answ =~ /C/ and $$self{'browsable'}) |
|
437
|
0 |
0 |
if ($answ =~ /D/ and $$self{'browsable'}) |
|
441
|
0 |
0 |
if $d eq '' |
|
452
|
0 |
0 |
if $d eq '' |
|
457
|
0 |
0 |
if ($$self{'hide_extentions'}) |
|
460
|
0 |
0 |
if ($$self{'make_readable'}) |
|
466
|
0 |
0 |
if ($answ =~ /[a-zA-Z0-9]/) |
|
468
|
0 |
0 |
if ($dirlst[$c] =~ /^$answ/) |
|
475
|
0 |
0 |
if (ord $answ == 27) { } |
|
|
0 |
0 |
elsif (ord $answ == 10 or ord $answ == 89 or ord $answ == 121) { } |
|
477
|
0 |
0 |
if (ord $answ == 91) |
|
479
|
0 |
0 |
if $answ =~ /B/ |
|
480
|
0 |
0 |
if $answ =~ /A/ |
|
481
|
0 |
0 |
if $count == scalar @dirlst |
|
482
|
0 |
0 |
if $count < 0 |
|
483
|
0 |
0 |
if ($answ =~ /C/ and $$self{'browsable'}) |
|
487
|
0 |
0 |
if ($answ =~ /D/ and $$self{'browsable'}) |
|
491
|
0 |
0 |
if $d eq '' |
|
516
|
0 |
0 |
unless opendir DH, $d |
|
517
|
0 |
0 |
unless my(@dirlst) = sort(readdir DH) |
|
521
|
0 |
0 |
if ($f eq '.' or $f eq '..' or $$self{'no_dot_files'} and $f =~ /^\./) |
|
525
|
0 |
0 |
if (-d "$d/$f") { } |
|
528
|
0 |
0 |
if (ord $answ == 27) { } |
|
|
0 |
0 |
elsif (ord $answ == 10 or ord $answ == 89 or ord $answ == 121) { } |
|
|
0 |
0 |
elsif (ord $answ == 85 or ord $answ == 117) { } |
|
530
|
0 |
0 |
if (ord $answ == 91) |
|
532
|
0 |
0 |
if $answ =~ /B/ |
|
533
|
0 |
0 |
if $answ =~ /A/ |
|
534
|
0 |
0 |
if $count == scalar @dirlst |
|
535
|
0 |
0 |
if $count < 0 |
|
536
|
0 |
0 |
if ($answ =~ /C/) |
|
539
|
0 |
0 |
if ($answ =~ /D/) |
|
543
|
0 |
0 |
if $d eq '' |
|
554
|
0 |
0 |
if $d eq '' |
|
560
|
0 |
0 |
if ($count > $#dirlst) |
|
565
|
0 |
0 |
if $d eq '' |
|
579
|
0 |
0 |
unless $prompt[0] |
|
580
|
0 |
0 |
unless $prompt[1] |
|
581
|
0 |
0 |
unless $prompt[2] |
|
585
|
0 |
0 |
unless ($lst[0]) |
|
593
|
0 |
0 |
if $prompt[1] |
|
598
|
0 |
0 |
if (-d "$dir/$lst[$count]") { } |
|
|
0 |
0 |
elsif (-f "$dir/$lst[$count]") { } |
|
605
|
0 |
0 |
if $speech_flag |
|
607
|
0 |
0 |
if ($answ eq ' ') { } |
|
|
0 |
0 |
elsif (ord $answ == 1) { } |
|
|
0 |
0 |
elsif (ord $answ == 27) { } |
|
|
0 |
0 |
elsif (ord $answ == 10 or ord $answ == 13) { } |
|
|
0 |
0 |
elsif ($answ =~ /\w/) { } |
|
620
|
0 |
0 |
if (ord $answ == 91) |
|
622
|
0 |
0 |
if $answ =~ /B/ |
|
623
|
0 |
0 |
if $answ =~ /A/ |
|
624
|
0 |
0 |
if $count > $#lst |
|
625
|
0 |
0 |
if $count < 0 |
|
627
|
0 |
0 |
if (ord $answ == 49) |
|
629
|
0 |
0 |
if ord $a == 49 |
|
630
|
0 |
0 |
if (ord $b == 126) |
|
631
|
0 |
0 |
if ($prompt[2] ne 'F1') { } |
|
646
|
0 |
0 |
if ($test =~ /^$str/) { } |
|
650
|
0 |
0 |
if $count > $#lst |
|
662
|
0 |
0 |
if ($hash{$_} % 2 == 1) |
|
693
|
0 |
0 |
if $prompt |
|
700
|
0 |
0 |
if ($ord == 127) { } |
|
|
0 |
0 |
elsif ($ord == 32) { } |
|
|
0 |
0 |
elsif ($ord == 46) { } |
|
|
0 |
0 |
elsif ($ord == 45) { } |
|
|
0 |
0 |
elsif ($ord == 10) { } |
|
|
0 |
0 |
elsif ($ord < 28) { } |
|
724
|
0 |
0 |
if ($no_confirm) { } |
|
728
|
0 |
0 |
$self->confirm ? : |
|
735
|
0 |
0 |
if $txt |
|
737
|
0 |
0 |
if $answ =~ /[yY\n]/ |
|
738
|
0 |
0 |
if $answ =~ /[nN]/ |
|
977
|
0 |
0 |
$Type{$ext} ? : |