line |
!l |
l&&!r |
l&&r |
condition |
138
|
0 |
0 |
0 |
defined $_ and /^-./ |
162
|
0 |
0 |
0 |
@prompt and exists $$flags{-'default'} |
181
|
0 |
0 |
0 |
not @prompt and $flags{-'prompt'} |
201
|
0 |
0 |
0 |
not defined $clearfirst and $flags{-'clearfirst'} |
204
|
0 |
0 |
0 |
-t $IN and defined $input{$caller} |
209
|
0 |
0 |
0 |
-t $IN and not @prompt |
233
|
0 |
0 |
0 |
$defined and not $flags{-'line'} |
236
|
0 |
0 |
0 |
$defined && (!$flags{-'while'} || $input =~ /$flags{-'while'}/) && !($flags{-'until'} && $input =~ /$flags{-'until'}/) |
237
|
0 |
0 |
0 |
$success and $RECORD |
249
|
0 |
0 |
0 |
$val and $RECORD |
350
|
0 |
0 |
0 |
print {$OUT;} $_ and select undef, undef, undef, rand $speed |
415
|
0 |
0 |
0 |
$$flags{-'escape'} and $next eq "\e" |
|
0 |
0 |
0 |
not $next =~ /$cntl/ and defined $next |
420
|
0 |
0 |
0 |
defined $input and length $input |
439
|
0 |
0 |
0 |
$input eq "\n" and exists $$flags{-'default'} |
444
|
0 |
0 |
0 |
defined $echo && $$flags{-'menu'} |
462
|
0 |
0 |
0 |
$require and my $mesg = &$require($input) |
482
|
0 |
0 |
0 |
$yesprompt && $noprompt |
492
|
0 |
0 |
0 |
defined $response and $response =~ /$yes/ |
513
|
0 |
0 |
0 |
defined $response and not $$flags{-'line'} |
514
|
0 |
0 |
0 |
-t $IN and defined $response |
515
|
0 |
0 |
0 |
$require and my $mesg = &$require($response) |
553
|
0 |
0 |
0 |
defined $$flags{-'default'} and not defined $default_key |
|
0 |
0 |
0 |
defined $$flags{-'default'} and not defined $default_key and $item eq $$flags{-'default'} |
572
|
0 |
0 |
0 |
-t $IN and defined $response |
573
|
0 |
0 |
0 |
length $response == 1 and $response eq "\e" |
|
0 |
0 |
0 |
$require and my $mesg = &$require($data[ord($response) - 97]) |
591
|
0 |
0 |
0 |
defined $response and ref($response) =~ /\A(?:HASH|ARRAY)\z/msx |
593
|
0 |
0 |
0 |
defined $response and $response eq "\e" |
line |
l |
!l&&r |
!l&&!r |
condition |
87
|
0 |
0 |
0 |
$flags_alias{$_} || defined $_ |
90
|
0 |
0 |
0 |
ref $_ eq 'GLOB' or UNIVERSAL::isa($_, 'IO::Handle') |
127
|
0 |
0 |
0 |
@data < $i + 2 or not defined $data[$i + 1] |
179
|
0 |
0 |
0 |
open $OUT, '>/dev/tty' or croak("Cannot write to terminal: $!") |
183
|
0 |
0 |
0 |
$flags{-'tty'} or $flags{-'argv'} |
199
|
0 |
0 |
0 |
$flags{-'set_underscore'} ||= want('BOOL') |
202
|
0 |
0 |
0 |
$flags{-'clear'} || $clearfirst |
460
|
0 |
0 |
0 |
$onechar or not defined $next |
|
0 |
0 |
0 |
$onechar or not defined $next or $input =~ m[\Q$/\E$] |
494
|
0 |
0 |
0 |
not defined $response or $response =~ /$no/ |
573
|
0 |
0 |
0 |
$response lt 'a' or $response gt $max_char |
|
0 |
0 |
0 |
length $response > 1 or ($response lt 'a' or $response gt $max_char) |