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 |
200
|
0 |
0 |
if ($ins) { } |
213
|
0 |
0 |
if ($ins) { } |
226
|
0 |
0 |
if ($index >= length $line) |
247
|
0 |
0 |
if $index <= 0 |
279
|
0 |
0 |
if $index <= 0 |
284
|
0 |
0 |
if $index >= length $line |
287
|
0 |
0 |
if ($index >= length $line) { } |
299
|
0 |
0 |
if $history_index <= 0 |
300
|
0 |
0 |
if $changehistory |
305
|
0 |
0 |
if $history_index >= $#$history |
306
|
0 |
0 |
if $changehistory |
311
|
0 |
0 |
if $history_index <= 0 |
312
|
0 |
0 |
if $changehistory |
317
|
0 |
0 |
if $history_index >= $#$history |
318
|
0 |
0 |
if $changehistory |
332
|
0 |
0 |
unless (defined $esc) |
356
|
0 |
0 |
if defined $newline |
362
|
0 |
0 |
unless defined $minline and length $line >= $minline |
382
|
0 |
0 |
if ($esc =~ /^.(\d+|\d+;\d+)?[^\d;]/) |
465
|
0 |
0 |
if defined $result and utf8::is_utf8($result) and $self->{'features'}{'utf8'} |
482
|
0 |
0 |
if (grep ':utf8', &PerlIO::get_layers($self->{'IN'})) |
534
|
0 |
0 |
if @_ >= 1 |
629
|
0 |
0 |
if $console_utf8 |
632
|
0 |
0 |
if ref $IN eq 'GLOB' |
633
|
0 |
0 |
if ref \$IN eq 'GLOB' |
634
|
0 |
0 |
unless defined $in |
635
|
0 |
0 |
unless defined $in |
639
|
0 |
0 |
if ref $OUT eq 'GLOB' |
640
|
0 |
0 |
if ref \$OUT eq 'GLOB' |
641
|
0 |
0 |
unless defined $out |
642
|
0 |
0 |
unless defined $out |
669
|
0 |
0 |
if ($self->{'features'}{'utf8'}) |
673
|
0 |
0 |
if utf8::is_utf8($result[$i]) |
693
|
0 |
0 |
if (grep ':utf8', &PerlIO::get_layers($self->{'IN'})) |
720
|
0 |
0 |
if @_ >= 1 |
741
|
0 |
0 |
unless (-t $in) |
754
|
0 |
0 |
unless (defined $esc) |
769
|
0 |
0 |
if $echo |
777
|
0 |
0 |
if ($esc =~ /^.\d?\D/) |
784
|
0 |
0 |
if defined $result and utf8::is_utf8($result) and $self->{'features'}{'utf8'} |
803
|
0 |
0 |
if @_ >= 1 |
852
|
0 |
0 |
if @_ |