line |
true |
false |
branch |
22
|
0 |
0 |
unless $_[0]
|
23
|
0 |
0 |
unless open my $OUT, '>/dev/tty'
|
86
|
0 |
0 |
$flags_alias{$_} || defined $_ ? :
|
89
|
0 |
0 |
if (ref $_ eq 'HASH') { }
|
|
0 |
0 |
elsif (ref $_ eq 'GLOB' or UNIVERSAL::isa($_, 'IO::Handle')) { }
|
|
0 |
0 |
elsif (/^-/) { }
|
93
|
0 |
0 |
unless -w $_
|
98
|
0 |
0 |
if (s/^-(f|clearfirst)/-/) { }
|
|
0 |
0 |
elsif (s/^-(yes|y)/-/i) { }
|
|
0 |
0 |
elsif (s/^-(?:nl|newline)/-/i) { }
|
|
0 |
0 |
elsif (s/^-escape|-x/-/i) { }
|
|
0 |
0 |
elsif (s/^-raw_?(?:input)?/-/i) { }
|
|
0 |
0 |
elsif (s/^-number|-num/-/i) { }
|
|
0 |
0 |
elsif (s/^-integer|-i/-/i) { }
|
|
0 |
0 |
elsif (s/^-(no|n)/-/i) { }
|
|
0 |
0 |
elsif (/^-($flag_with_arg)/) { }
|
|
0 |
0 |
elsif (s/^-($flag_no_arg)/-/) { }
|
99
|
0 |
0 |
unless defined $clearfirst
|
126
|
0 |
0 |
if @data < $i + 2 or not defined $data[$i + 1]
|
137
|
0 |
0 |
if defined $_ and /^-./
|
146
|
0 |
0 |
ref $_ eq 'Regexp' ? :
|
|
0 |
0 |
!defined($_) ? :
|
149
|
0 |
0 |
unless ref $_ eq 'HASH'
|
155
|
0 |
0 |
unless _smartmatch($input, $reqs{$_})
|
161
|
0 |
0 |
if (@prompt and exists $$flags{-'default'})
|
163
|
0 |
0 |
unless $prompt =~ /\[.*\]/
|
178
|
0 |
0 |
unless $OUT
|
180
|
0 |
0 |
if not @prompt and $flags{-'prompt'}
|
182
|
0 |
0 |
if ($flags{-'tty'} or $flags{-'argv'}) { }
|
183
|
0 |
0 |
unless open $IN, '</dev/tty'
|
189
|
0 |
0 |
unless (&Scalar::Util::openhandle(*$ARGV))
|
191
|
0 |
0 |
unless open $ARGV
|
194
|
0 |
0 |
unless -t $IN
|
196
|
0 |
0 |
unless defined $flags{-'speed'}
|
200
|
0 |
0 |
if not defined $clearfirst and $flags{-'clearfirst'}
|
203
|
0 |
0 |
if (-t $IN and defined $input{$caller}) { }
|
|
0 |
0 |
elsif ($flags{-'argv'}) { }
|
|
0 |
0 |
elsif ($flags{-'yesno'}) { }
|
|
0 |
0 |
elsif ($flags{-'number'}) { }
|
|
0 |
0 |
elsif ($flags{-'menu'}) { }
|
207
|
0 |
0 |
if @ARGV
|
208
|
0 |
0 |
if -t $IN and not @prompt
|
232
|
0 |
0 |
if $defined and not $flags{-'line'}
|
236
|
0 |
0 |
if $success and $RECORD
|
237
|
0 |
0 |
if $flags{-'raw_input'}
|
248
|
0 |
0 |
if $val and $RECORD
|
249
|
0 |
0 |
if $raw
|
260
|
0 |
0 |
if $raw
|
277
|
0 |
0 |
unless grep {$_ eq $sym;} @EXPORT_OK
|
284
|
0 |
1 |
if ("@_" eq '-clearfirst')
|
289
|
0 |
0 |
if $RECORD
|
290
|
0 |
0 |
if ($_[$i] eq '-record')
|
292
|
0 |
0 |
unless open $RECORD, '>', '__PROMPT__'
|
297
|
0 |
1 |
if @_
|
302
|
0 |
1 |
if defined $input{$pkg}
|
305
|
0 |
1 |
if (my $datahandle = *{"${pkg}::DATA";}{'IO'}) { }
|
308
|
0 |
0 |
if ($data =~ s/(\A|\n) __PROMPT__ \s*? \n (.*)/$1/sx) { }
|
314
|
0 |
0 |
unless open "${pkg}::DATA", '<', \$data
|
326
|
0 |
0 |
ord $_ < $baseline ? :
|
|
0 |
0 |
ord $_ == 0 ? :
|
|
0 |
0 |
$_ eq "\n" ? :
|
|
0 |
0 |
isprint($_) ? :
|
339
|
0 |
0 |
if (ref $_ eq 'HASH') { }
|
|
0 |
0 |
elsif (not $speed) { }
|
340
|
0 |
0 |
if exists $$_{-'speed'}
|
341
|
0 |
0 |
if exists $$_{-'to'}
|
342
|
0 |
0 |
if exists $$_{-'echo'}
|
348
|
0 |
0 |
defined $echo ? :
|
362
|
0 |
0 |
if ($input =~ /\cD|\cZ/)
|
363
|
0 |
0 |
if ($input eq "\e")
|
369
|
0 |
0 |
unless (defined $line)
|
374
|
0 |
0 |
if pos $input{$caller} == length $input{$caller}
|
375
|
0 |
0 |
if ($input eq "\n") { }
|
377
|
0 |
0 |
unless (defined <$IN>)
|
383
|
0 |
0 |
unless $done
|
384
|
0 |
0 |
if (getc $IN eq "\n")
|
385
|
0 |
0 |
if $done
|
400
|
0 |
0 |
unless defined $nlstr
|
401
|
0 |
0 |
unless (-t $IN)
|
402
|
0 |
0 |
unless $onechar
|
414
|
0 |
0 |
if ($next eq $cntl{'INTERRUPT'}) { }
|
|
0 |
0 |
elsif ($next eq $cntl{'ERASE'}) { }
|
|
0 |
0 |
elsif ($next eq $cntl{'EOF'}) { }
|
|
0 |
0 |
elsif ($$flags{-'escape'} and $next eq "\e") { }
|
|
0 |
0 |
elsif (not $next =~ /$cntl/ and defined $next) { }
|
419
|
0 |
0 |
if (defined $input and length $input)
|
437
|
0 |
0 |
if ($next eq "\n") { }
|
438
|
0 |
0 |
if ($input eq "\n" and exists $$flags{-'default'})
|
439
|
0 |
0 |
defined $echo ? :
|
|
0 |
0 |
defined $echo && $$flags{-'menu'} ? :
|
448
|
0 |
0 |
$onechar ? :
|
453
|
0 |
0 |
defined $echo ? :
|
459
|
0 |
0 |
if ($onechar or not defined $next or $input =~ m[\Q$/\E$])
|
460
|
0 |
0 |
unless $$flags{-'line'}
|
461
|
0 |
0 |
if ($require and my $mesg = &$require($input)) { }
|
468
|
0 |
0 |
if defined $newlines
|
469
|
0 |
0 |
$onechar ? :
|
479
|
0 |
0 |
unless defined $yes
|
480
|
0 |
0 |
unless defined $no
|
481
|
0 |
0 |
$yesprompt ? :
|
|
0 |
0 |
$yesprompt && $noprompt ? :
|
486
|
0 |
0 |
if -t $IN
|
490
|
0 |
0 |
unless $$flags{-'line'}
|
491
|
0 |
0 |
if defined $response and $response =~ /$yes/
|
493
|
0 |
0 |
if not defined $response or $response =~ /$no/
|
495
|
0 |
0 |
if -t $IN
|
507
|
0 |
0 |
if -t $IN
|
512
|
0 |
0 |
if defined $response and not $$flags{-'line'}
|
513
|
0 |
0 |
if (-t $IN and defined $response)
|
514
|
0 |
0 |
if (not $response =~ /\A \s* $match \s* \Z/x) { }
|
|
0 |
0 |
elsif ($require and my $mesg = &$require($response)) { }
|
523
|
0 |
0 |
if print {$OUT;} "\n"
|
533
|
0 |
0 |
$datatype eq 'HASH' ? :
|
|
0 |
0 |
$datatype eq 'ARRAY' ? :
|
538
|
0 |
0 |
$datatype eq 'ARRAY' ? :
|
542
|
0 |
0 |
if $count > 26
|
543
|
0 |
0 |
if $count < 1
|
552
|
0 |
0 |
if (defined $$flags{-'default'} and not defined $default_key and $item eq $$flags{-'default'})
|
565
|
0 |
0 |
if -t $IN
|
571
|
0 |
0 |
if (-t $IN and defined $response)
|
572
|
0 |
0 |
if (length $response == 1 and $response eq "\e") { }
|
|
0 |
0 |
elsif (length $response > 1 or ($response lt 'a' or $response gt $max_char)) { }
|
|
0 |
0 |
elsif ($require and my $mesg = &$require($data[ord($response) - 97])) { }
|
576
|
0 |
0 |
if ($response ne $$flags{-'default'})
|
589
|
0 |
0 |
defined $response ? :
|
590
|
0 |
0 |
if (defined $response and ref($response) =~ /\A(?:HASH|ARRAY)\z/msx)
|
592
|
0 |
0 |
if (defined $response and $response eq "\e")
|
593
|
0 |
0 |
if -t $IN
|
607
|
0 |
0 |
$type eq 'HASH' ? :
|
|
0 |
0 |
$type eq 'ARRAY' ? :
|
|
0 |
0 |
$type eq 'Regexp' ? :
|
|
0 |
0 |
$type eq 'CODE' ? :
|
617
|
0 |
0 |
if $_[0]{'set_val'}
|
627
|
0 |
0 |
unless $_[0]{'handled'}
|