| blib/lib/IO/Prompt/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 15 | 33.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 51 | 0 | 0 | 0 | defined $ARGV and $ARGV eq '-' |
| 52 | 0 | 0 | 0 | @ARGV > 0 && $ARGV[0] eq '-' && -t *STDIN |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 29 | 1 | 1 | 2 | $ENV{'PERL_MM_USE_DEFAULT'} or not _is_interactive() |
| 42 | 3 | 0 | 1 | !defined($ans) || $ans eq '' |
| 50 | 0 | 0 | 0 | tied *ARGV or defined fileno ARGV |