| blib/lib/IO/Prompt/Timeout.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 1 | 2 | unless ($message) |
| 32 | 2 | 0 | exists $opt{'default_answer'} ? : |
| 33 | 1 | 1 | $default_answer ? : |
| 40 | 2 | 0 | if ($ENV{'PERL_IOPT_USE_DEFAULT'} or not $isa_tty and eof STDIN) { } |
| 46 | 0 | 0 | if (my(@readable) = $is->can_read($timeout)) { } |
| 53 | 0 | 0 | if (defined $answer) { } |
| 62 | 0 | 2 | defined $answer ? : |