| blib/lib/IO/Prompt/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 41 | 56.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 55 | 47 | 1 | 1 | not $isa_tty and eof $in |
| 188 | 18 | 0 | 6 | ref $anyone eq 'ARRAY' && @$anyone |
| 8 | 0 | 10 | ref $anyone eq 'HASH' && %$anyone | |
| 0 | 0 | 8 | ref $anyone eq 'REF' && ref $$anyone eq 'ARRAY' && @{$$anyone;} | |
| 0 | 0 | 0 | do { require Scalar::Util; '' unless &Scalar::Util::blessed($anyone) } eq 'Hash::MultiValue' && %$anyone | |
| 208 | 0 | 0 | 0 | -t $in && (-t $out || !(-f $out || -c $out)) |
| line | l | !l | condition |
|---|---|---|---|
| 141 | 24 | 0 | _anyone_type($anyone) || (return) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 55 | 1 | 2 | 49 | $ENV{'PERL_IOPS_USE_DEFAULT'} or $$opts{'use_default'} |
| 3 | 0 | 49 | $ENV{'PERL_IOPS_USE_DEFAULT'} or $$opts{'use_default'} or not $isa_tty and eof $in | |
| 69 | 3 | 5 | 40 | not defined $answer or $answer eq '' |
| 119 | 22 | 2 | 18 | $$opts{'anyone'} ||= $$opts{'choices'} |
| 142 | 10 | 8 | 0 | $type eq 'HASH' or $type eq 'REFARRAY' |
| 18 | 0 | 0 | $type eq 'HASH' or $type eq 'REFARRAY' or $type eq 'Hash::MultiValue' | |
| 220 | 0 | 0 | 0 | eval { do { $maybe_fh->isa('IO::Handle') } } || eval { do { tied($maybe_fh)->can('TIEHANDLE') } } |