blib/lib/IO/Prompt/Timeout.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 17 | 41.1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
30 | 2 | 0 | 0 | -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) |
40 | 0 | 0 | 1 | not $isa_tty and eof STDIN |
line | l | !l | condition |
---|---|---|---|
71 | 2 | 1 | $args{'default'} || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
40 | 1 | 0 | 1 | $ENV{'PERL_IOPT_USE_DEFAULT'} or not $isa_tty and eof STDIN |
43 | 0 | 0 | 0 | $opt{'timeout'} || $DEFAULT_TIMEOUT_SEC |
63 | 0 | 2 | 0 | $answer || $default_answer |