| line |
true |
false |
branch |
|
9
|
0 |
12 |
if $^O eq 'MSWin32' |
|
18
|
1 |
42 |
unless defined $message |
|
21
|
32 |
10 |
if (ref $opts eq 'HASH') { } |
|
27
|
12 |
30 |
defined $default ? : |
|
28
|
12 |
30 |
defined $default ? : |
|
34
|
3 |
39 |
if (my $color = $$opts{'color'}) |
|
36
|
2 |
1 |
unless ref $color eq 'ARRAY' |
|
48
|
8 |
34 |
$$opts{'ignore_case'} ? : |
|
53
|
8 |
44 |
if defined $$stash{'choices'} |
|
55
|
3 |
48 |
if ($ENV{'PERL_IOPS_USE_DEFAULT'} or $$opts{'use_default'} or not $isa_tty and eof $in) |
|
61
|
45 |
3 |
if (defined $answer) { } |
|
63
|
1 |
44 |
unless $isa_tty |
|
69
|
8 |
40 |
if not defined $answer or $answer eq '' |
|
70
|
1 |
47 |
if defined $$stash{'encoder'} |
|
71
|
31 |
17 |
if (my $exclusive_map = $$stash{'exclusive_map'}) { } |
|
|
5 |
12 |
elsif (my $regexp = $$stash{'regexp'}) { } |
|
72
|
3 |
28 |
if ($$stash{'want_multi'}) { } |
|
73
|
0 |
3 |
$ignore_case ? : |
|
76
|
1 |
4 |
unless (exists $$exclusive_map{$ans}) |
|
82
|
1 |
2 |
unless @answers |
|
83
|
2 |
1 |
unless $has_error |
|
86
|
7 |
21 |
$ignore_case ? : |
|
|
20 |
8 |
if (exists $$exclusive_map{$ignore_case ? lc $answer : $answer}) |
|
87
|
7 |
13 |
$ignore_case ? : |
|
97
|
4 |
1 |
if $answer =~ /$regexp/ |
|
105
|
2 |
40 |
$$stash{'want_multi'} ? : |
|
111
|
32 |
10 |
_is_fh($$opts{'input'}) ? : |
|
112
|
32 |
10 |
_is_fh($$opts{'output'}) ? : |
|
114
|
5 |
37 |
if ($$opts{'yn'}) |
|
116
|
4 |
1 |
unless exists $$opts{'ignore_case'} |
|
120
|
24 |
18 |
if ($$opts{'anyone'}) { } |
|
|
5 |
13 |
elsif ($$opts{'regexp'}) { } |
|
122
|
2 |
22 |
$$opts{'multi'} ? : |
|
128
|
1 |
41 |
if ($$opts{'encode'}) |
|
139
|
7 |
17 |
$$opts{'ignore_case'} ? : |
|
142
|
6 |
18 |
if ($type eq 'ARRAY') { } |
|
|
18 |
0 |
elsif ($type eq 'HASH' or $type eq 'REFARRAY' or $type eq 'Hash::MultiValue') { } |
|
145
|
2 |
10 |
$ignore_case ? : |
|
153
|
0 |
0 |
$type eq 'Hash::MultiValue' ? : |
|
|
8 |
0 |
$type eq 'REFARRAY' ? : |
|
|
10 |
8 |
$type eq 'HASH' ? : |
|
158
|
18 |
17 |
length $key > $max ? : |
|
159
|
12 |
23 |
$ignore_case ? : |
|
|
16 |
19 |
$type eq 'REFARRAY' ? : |
|
164
|
6 |
12 |
if ($$opts{'verbose'}) { } |
|
168
|
2 |
9 |
$type eq 'REFARRAY' ? : |
|
188
|
0 |
0 |
do {
require Scalar::Util;
'' unless &Scalar::Util::blessed($anyone)
} eq 'Hash::MultiValue' && %$anyone ? : |
|
|
8 |
0 |
ref $anyone eq 'REF' && ref $$anyone eq 'ARRAY' && @{$$anyone;} ? : |
|
|
10 |
8 |
ref $anyone eq 'HASH' && %$anyone ? : |
|
|
6 |
18 |
ref $anyone eq 'ARRAY' && @$anyone ? : |
|
198
|
1 |
2 |
$$opts{'ignore_case'} ? : |
|
|
2 |
3 |
ref $$opts{'regexp'} eq 'Regexp' ? : |
|
208
|
0 |
0 |
-t $in && (-t $out || !(-f $out || -c $out)) ? : |
|
214
|
20 |
64 |
unless defined $maybe_fh |
|
216
|
64 |
0 |
if ref $maybe_fh eq 'GLOB' |
|
217
|
0 |
0 |
if ref \$maybe_fh eq 'GLOB' |