Branch Coverage

lib/Term/ReadLine/Perl5/OO/History.pm
Criterion Covered Total %
branch 13 24 54.1


line true false branch
48 0 0 if (length $line >= $minlength and !@$rl_History || $$rl_History[$#$rl_History] ne $line)
72 1 7 if ($self->{'history_stifled'} and $self->{'rl_history_length'} == $self->{'rl_max_input_history'})
77 0 1 if $self->{'rl_max_input_history'} == 0
98 0 2 unless $filename
100 0 2 unless open my $fh, '<:encoding(utf-8)', $filename
123 0 1 if $which < 0 or $which >= $self->{'rl_history_length'}
129 1 0 if $self->{'rl_history_length'} < $self->{'rl_HistoryIndex'}
172 2 3 $self->{'history_stifled'} ? :
188 1 0 if ($self->{'history_stifled'}) { }
208 0 1 if $which < 0 or $which >= $self->{'rl_history_length'}
249 0 2 unless open my $fh, '>:encoding(utf-8)', $filename
251 0 5 unless $hist =~ /\S/