Branch Coverage

lib/Term/ReadLine/Perl5.pm
Criterion Covered Total %
branch 17 34 50.0


line true false branch
148 0 9 $use_vi ? :
176 3 0 if (require Term::ReadLine)
180 0 3 if (defined $term)
198 0 3 if (@_)
199 0 0 if ($term) { }
200 0 0 if defined $term
208 3 0 if (not @_) { }
209 3 0 unless (defined $term)
213 0 3 if $^O eq 'MSWin32' and uc $IN eq 'CON'
214 0 3 $IN eq 'CONIN$' && $^O eq 'MSWin32' ? :
0 3 unless open my $in_fh, $IN eq 'CONIN$' && $^O eq 'MSWin32' ? "+< $IN" : "< $IN"
218 0 3 unless open my $out_fh, ">$OUT"
223 0 0 if (defined $term and $term->IN ne $_[0] || $term->OUT ne $_[1])
242 3 0 unless ($ENV{'PERL_RL'} and $ENV{'PERL_RL'} =~ /\bo\w*=0/)
313 2 2 if @_ == 2
373 1 2 if not defined $max or $max < 0
375 2 1 if (scalar @Term::ReadLine::Perl5::rl_History > $max)