| blib/lib/IO/Prompt/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 20 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 4 | unless defined $mess |
| 21 | 4 | 0 | defined $def ? : |
| 22 | 4 | 0 | defined $def ? : |
| 29 | 2 | 2 | if ($ENV{'PERL_MM_USE_DEFAULT'} or not _is_interactive()) { } |
| 34 | 1 | 1 | if (defined $ans) { } |
| 42 | 3 | 1 | !defined($ans) || $ans eq '' ? : |
| 49 | 1 | 0 | unless -t $out_handle |
| 50 | 0 | 0 | if (tied *ARGV or defined fileno ARGV) { } |
| 51 | 0 | 0 | if defined $ARGV and $ARGV eq '-' |
| 52 | 0 | 0 | if eof ARGV |