Condition Coverage

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


and 2 conditions

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

and 3 conditions

line !l l&&!r l&&r condition
137 0 0 0 defined $_ and /^-./
161 0 0 0 @prompt and exists $$flags{-'default'}
180 0 0 0 not @prompt and $flags{-'prompt'}
200 0 0 0 not defined $clearfirst and $flags{-'clearfirst'}
203 0 0 0 -t $IN and defined $input{$caller}
208 0 0 0 -t $IN and not @prompt
232 0 0 0 $defined and not $flags{-'line'}
235 0 0 0 $defined && (!$flags{-'while'} || $input =~ /$flags{-'while'}/) && !($flags{-'until'} && $input =~ /$flags{-'until'}/)
236 0 0 0 $success and $RECORD
248 0 0 0 $val and $RECORD
349 0 0 0 print {$OUT;} $_ and select undef, undef, undef, rand $speed
414 0 0 0 $$flags{-'escape'} and $next eq "\e"
0 0 0 not $next =~ /$cntl/ and defined $next
419 0 0 0 defined $input and length $input
438 0 0 0 $input eq "\n" and exists $$flags{-'default'}
439 0 0 0 defined $echo && $$flags{-'menu'}
461 0 0 0 $require and my $mesg = &$require($input)
481 0 0 0 $yesprompt && $noprompt
491 0 0 0 defined $response and $response =~ /$yes/
512 0 0 0 defined $response and not $$flags{-'line'}
513 0 0 0 -t $IN and defined $response
514 0 0 0 $require and my $mesg = &$require($response)
552 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'}
571 0 0 0 -t $IN and defined $response
572 0 0 0 length $response == 1 and $response eq "\e"
0 0 0 $require and my $mesg = &$require($data[ord($response) - 97])
590 0 0 0 defined $response and ref($response) =~ /\A(?:HASH|ARRAY)\z/msx
592 0 0 0 defined $response and $response eq "\e"

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
86 0 0 0 $flags_alias{$_} || defined $_
89 0 0 0 ref $_ eq 'GLOB' or UNIVERSAL::isa($_, 'IO::Handle')
126 0 0 0 @data < $i + 2 or not defined $data[$i + 1]
178 0 0 0 open $OUT, '>/dev/tty' or croak("Cannot write to terminal: $!")
182 0 0 0 $flags{-'tty'} or $flags{-'argv'}
198 0 0 0 $flags{-'set_underscore'} ||= want('BOOL')
201 0 0 0 $flags{-'clear'} || $clearfirst
459 0 0 0 $onechar or not defined $next
0 0 0 $onechar or not defined $next or $input =~ m[\Q$/\E$]
493 0 0 0 not defined $response or $response =~ /$no/
572 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)