Condition Coverage

blib/lib/IO/Prompt.pm
Criterion Covered Total %
condition 0 129 0.0


and 2 conditions

line l !l condition
492 0 0 print {$OUT;} "\n" and return _success($response, 'no_set', $raw)
494 0 0 print {$OUT;} "\n" and return _failure($response, $raw)

and 3 conditions

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"

or 2 conditions

line l !l condition
191 0 0 shift @$ARGV || '-'

or 3 conditions

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)