| line |
true |
false |
branch |
|
136
|
0 |
0 |
if ($self->{'readmode'}) |
|
154
|
0 |
0 |
unless defined $prompt |
|
155
|
0 |
0 |
unless defined $default |
|
158
|
0 |
0 |
unless (-t $in) |
|
161
|
0 |
0 |
if defined $line |
|
187
|
0 |
0 |
if ($ins) { } |
|
200
|
0 |
0 |
if ($ins) { } |
|
213
|
0 |
0 |
if ($index >= length $line) |
|
234
|
0 |
0 |
if $index <= 0 |
|
266
|
0 |
0 |
if $index <= 0 |
|
271
|
0 |
0 |
if $index >= length $line |
|
274
|
0 |
0 |
if ($index >= length $line) { } |
|
286
|
0 |
0 |
if $history_index <= 0 |
|
287
|
0 |
0 |
if $changehistory |
|
292
|
0 |
0 |
if $history_index >= $#$history |
|
293
|
0 |
0 |
if $changehistory |
|
298
|
0 |
0 |
if $history_index <= 0 |
|
299
|
0 |
0 |
if $changehistory |
|
304
|
0 |
0 |
if $history_index >= $#$history |
|
305
|
0 |
0 |
if $changehistory |
|
319
|
0 |
0 |
unless (defined $esc) |
|
344
|
0 |
0 |
if ($history->[$i] =~ /^$line/) |
|
355
|
0 |
0 |
unless defined $minline and length $line >= $minline |
|
375
|
0 |
0 |
if ($esc =~ /^.\d?\D/) |
|
453
|
0 |
0 |
if defined $result and utf8::is_utf8($result) and $self->{'features'}{'utf8'} |
|
470
|
0 |
0 |
if (grep ':utf8', &PerlIO::get_layers($self->{'IN'})) |
|
522
|
0 |
0 |
if @_ >= 1 |
|
617
|
0 |
0 |
if $console_utf8 |
|
620
|
0 |
0 |
if ref $IN eq 'GLOB' |
|
621
|
0 |
0 |
if ref \$IN eq 'GLOB' |
|
622
|
0 |
0 |
unless defined $in |
|
623
|
0 |
0 |
unless defined $in |
|
627
|
0 |
0 |
if ref $OUT eq 'GLOB' |
|
628
|
0 |
0 |
if ref \$OUT eq 'GLOB' |
|
629
|
0 |
0 |
unless defined $out |
|
630
|
0 |
0 |
unless defined $out |
|
657
|
0 |
0 |
if ($self->{'features'}{'utf8'}) |
|
661
|
0 |
0 |
if utf8::is_utf8($result[$i]) |
|
681
|
0 |
0 |
if (grep ':utf8', &PerlIO::get_layers($self->{'IN'})) |
|
708
|
0 |
0 |
if @_ >= 1 |
|
729
|
0 |
0 |
unless (-t $in) |
|
742
|
0 |
0 |
unless (defined $esc) |
|
757
|
0 |
0 |
if $echo |
|
765
|
0 |
0 |
if ($esc =~ /^.\d?\D/) |
|
772
|
0 |
0 |
if defined $result and utf8::is_utf8($result) and $self->{'features'}{'utf8'} |
|
791
|
0 |
0 |
if @_ >= 1 |