| line |
true |
false |
branch |
|
133
|
0 |
0 |
unless my $args = check($tmpl, \%hash, $Term::UI::VERBOSE) |
|
137
|
0 |
0 |
if ($$args{'multi'} and defined $$args{'default'} and ref $$args{'default'} ne 'ARRAY') |
|
147
|
0 |
0 |
if (@{$$args{'choices'};}) { } |
|
|
0 |
0 |
elsif (defined $$args{'default'}) { } |
|
156
|
0 |
0 |
if (defined $$args{'default'}) |
|
157
|
0 |
0 |
if ($$args{'multi'}) { } |
|
158
|
0 |
0 |
if scalar grep({/^$choice$/;} @{$$args{'default'};}) |
|
161
|
0 |
0 |
if $choice eq $$args{'default'} |
|
169
|
0 |
0 |
if $prompt_add and $$args{'multi'} |
|
173
|
0 |
0 |
if $i |
|
181
|
0 |
0 |
if ($$args{'multi'} and ref $$args{'default'} eq 'ARRAY') { } |
|
230
|
0 |
0 |
unless my $args = check($tmpl, \%hash, $Term::UI::VERBOSE) |
|
236
|
0 |
0 |
if (defined $$args{'default'}) |
|
240
|
0 |
0 |
$$args{'default'} =~ /\d/ ? : |
|
244
|
0 |
0 |
lc $$args{'default'} eq lc $_ ? : |
|
255
|
0 |
0 |
$rv =~ /^y/i ? : |
|
282
|
0 |
0 |
unless check($tmpl, \%hash, $Term::UI::VERBOSE) |
|
286
|
0 |
0 |
if $print_me |
|
289
|
0 |
0 |
if ($prompt_add) { } |
|
300
|
0 |
0 |
if ($Term::UI::AUTOREPLY) |
|
303
|
0 |
0 |
if not defined $default and $Term::UI::VERBOSE |
|
309
|
0 |
0 |
if ($multi and defined $default) { } |
|
322
|
0 |
0 |
if ($multi and defined $default) |
|
340
|
0 |
0 |
unless length $answer |
|
342
|
0 |
0 |
if length $answer |
|
349
|
0 |
0 |
$multi ? : |
|
354
|
0 |
0 |
if (@$choices) { } |
|
360
|
0 |
0 |
if ($answer =~ /\D/) { } |
|
361
|
0 |
0 |
if allow($answer, $allow) |
|
367
|
0 |
0 |
if $answer > 0 and defined $$choices[$answer - 1] |
|
381
|
0 |
0 |
if (@rv != @answers or scalar @$choices and not scalar @answers) { } |
|
385
|
0 |
0 |
if $prompt_add |
|
391
|
0 |
0 |
$multi ? : |
|
447
|
0 |
0 |
if ($match =~ /^([-\w]+)=("|')(.+?)\2$/) { } |
|
|
0 |
0 |
elsif ($match =~ /^([-\w]+)=(\S+)$/) { } |
|
|
0 |
0 |
elsif ($match =~ /^no-?([-\w]+)$/i) { } |
|
|
0 |
0 |
elsif ($match =~ /^([-\w]+)$/) { } |
|
460
|
0 |
0 |
if $Term::UI::VERBOSE |
|
464
|
0 |
0 |
wantarray ? : |