Branch Coverage

lib/App/Tel/Expect.pm
Criterion Covered Total %
branch 0 68 0.0


line true false branch
22 0 0 if (not defined $function or $function eq 'undef')
49 0 0 if ($Expect::Debug)
65 0 0 unless (do { *$handle }->{'exp_Manual_Stty'})
70 0 0 if do { *$handle }->{'exp_Debug'}
74 0 0 unless (do { *$write_handle }->{'exp_Manual_Stty'})
78 0 0 if do { *$handle }->{'exp_Debug'}
84 0 0 if $Expect::Debug
98 0 0 if exists do { *$read_handle }->{'exp_Pid'} and do { *$read_handle }->{'exp_Pid'}
99 0 0 if (exists do { *$read_handle }->{'exp_Pid'} and do { *$read_handle }->{'exp_Pid'} and not kill(0, do { *$read_handle }->{'exp_Pid'}))
105 0 0 if do { *$read_handle }->{'exp_Debug'}
107 0 0 unless defined do { ${*$read_handle;}{'exp_Function'} }->{'EOF'}
110 0 0 unless &{do { ${*$read_handle;}{'exp_Function'} }->{'EOF'};}(@{${${*$read_handle;}{'exp_Parameters'};}{'EOF'};})
118 0 0 if not defined $nfound or $nfound < 1
122 0 0 unless defined $eout
127 0 0 if ($bits[$read_handle->fileno])
133 0 0 if (do { *$read_handle }->{'exp_cb_Function'})
138 0 0 unless defined $nread
140 0 0 if do { *$read_handle }->{'exp_Debug'} > 1
144 0 0 unless defined $escape_character_buffer
149 0 0 if do { *$read_handle }->{'exp_Debug'} > 1
155 0 0 if do { *$read_handle }->{'exp_Max_Accum'}
156 0 0 if ($escape_character_buffer =~ /($escape_sequence)/)
158 0 0 if (do { *$read_handle }->{'exp_Debug'})
177 0 0 if (do { *$read_handle }->{'exp_Pty_Buffer'} =~ /([\w\W]*)($escape_sequence)/) { }
192 0 0 unless &{do { ${*$read_handle;}{'exp_Function'} }->{$escape_sequence};}(@{${${*$read_handle;}{'exp_Parameters'};}{$escape_sequence};})
195 0 0 unless defined $nread
198 0 0 if defined do { *$read_handle }->{'exp_Pid'} and do { *$read_handle }->{'exp_Pid'}
199 0 0 if ($nread == 0)
201 0 0 if do { *$read_handle }->{'exp_Debug'}
203 0 0 unless defined do { ${*$read_handle;}{'exp_Function'} }->{'EOF'}
206 0 0 unless &{do { ${*$read_handle;}{'exp_Function'} }->{'EOF'};}(@{${${*$read_handle;}{'exp_Parameters'};}{'EOF'};})
208 0 0 if $nread < 0
227 0 0 unless (do { *$handle }->{'exp_Manual_Stty'})
231 0 0 unless (do { *$write_handle }->{'exp_Manual_Stty'})