blib/lib/Prompt/Timeout.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 22 | 45.4 |
line | true | false | branch |
---|---|---|---|
72 | 2 | 3 | unless $timeout |
74 | 0 | 5 | unless defined $mess |
77 | 0 | 5 | unless $timeout =~ /^\d+$/ |
82 | 4 | 1 | defined $def ? : |
83 | 4 | 1 | defined $def ? : |
90 | 5 | 0 | if (not $isa_tty and eof STDIN) { } |
99 | 0 | 0 | if (defined $key) { } |
100 | 0 | 0 | if $key =~ /^[\r\n]$/x |
105 | 0 | 0 | unless ($click and $ans ne '') |
106 | 0 | 0 | if ($end < time) |
116 | 5 | 0 | !defined($ans) || $ans eq '' ? : |