| blib/lib/IO/Prompt/Timeout.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 18 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 3 | if ($^O eq 'MSWin32') |
| 22 | 1 | 2 | unless ($message) |
| 33 | 2 | 0 | exists $opt{'default_answer'} ? : |
| 34 | 1 | 1 | $default_answer ? : |
| 41 | 2 | 0 | if ($ENV{'PERL_IOPT_USE_DEFAULT'} or not $isa_tty and eof STDIN) { } |
| 52 | 0 | 0 | if ($@) |
| 53 | 0 | 0 | unless ($@ eq $alarm_error) |
| 59 | 0 | 0 | if (defined $answer) { } |
| 68 | 0 | 2 | defined $answer ? : |