| line |
true |
false |
branch |
|
140
|
0 |
0 |
unless my $args = check($tmpl, \%hash, $VERBOSE) |
|
144
|
0 |
0 |
if ($args->{'multi'} and defined $args->{'default'} and ref $args->{'default'} ne 'ARRAY') |
|
154
|
0 |
0 |
if (@{$args->{'choices'};}) { } |
|
|
0 |
0 |
elsif (defined $args->{'default'}) { } |
|
156
|
0 |
0 |
if ($args->{'default'}) |
|
157
|
0 |
0 |
if ($args->{'multi'}) { } |
|
166
|
0 |
0 |
unless grep(($_ eq $args->{'default'}), @{$$args{'choices'};}) |
|
179
|
0 |
0 |
if (defined $args->{'default'}) |
|
180
|
0 |
0 |
if ($args->{'multi'}) { } |
|
181
|
0 |
0 |
if grep {$_ eq $choice;} @{$$args{'default'};} |
|
184
|
0 |
0 |
if $choice eq $args->{'default'} |
|
192
|
0 |
0 |
if $prompt_add and $args->{'multi'} |
|
196
|
0 |
0 |
if $i |
|
204
|
0 |
0 |
if ($args->{'multi'} and ref $args->{'default'} eq 'ARRAY') { } |
|
253
|
0 |
0 |
unless my $args = check($tmpl, \%hash, $VERBOSE) |
|
259
|
0 |
0 |
if (defined $args->{'default'}) |
|
265
|
0 |
0 |
$args->{'default'} =~ /\d/ ? : |
|
269
|
0 |
0 |
lc $args->{'default'} eq lc $_ ? : |
|
278
|
0 |
0 |
$rv =~ /^y/i ? : |
|
305
|
0 |
0 |
unless check($tmpl, \%hash, $VERBOSE) |
|
309
|
0 |
0 |
if $print_me |
|
311
|
0 |
0 |
$term->ReadLine eq 'Term::ReadLine::Gnu' ? : |
|
314
|
0 |
0 |
unless $preput_is_supported |
|
317
|
0 |
0 |
if (defined $preput and $preput eq '') |
|
324
|
0 |
0 |
if ($prompt_add) { } |
|
335
|
0 |
0 |
if ($AUTOREPLY) |
|
338
|
0 |
0 |
if not defined $default and $VERBOSE |
|
344
|
0 |
0 |
if ($multi and defined $default) { } |
|
357
|
0 |
0 |
if ($multi and defined $default) |
|
374
|
0 |
0 |
defined $preput ? : |
|
378
|
0 |
0 |
unless length $answer |
|
380
|
0 |
0 |
if length $answer |
|
383
|
0 |
0 |
defined $answer ? : |
|
387
|
0 |
0 |
$multi ? : |
|
392
|
0 |
0 |
if (@$choices) { } |
|
398
|
0 |
0 |
if ($answer =~ /\D/ or $answer =~ /^\d+$/ and @$choices < $answer) { } |
|
403
|
0 |
0 |
if allow($answer, $allow) |
|
409
|
0 |
0 |
if $answer > 0 and defined $$choices[$answer - 1] |
|
423
|
0 |
0 |
if (@rv != @answers or scalar @$choices and not scalar @answers) { } |
|
427
|
0 |
0 |
if $prompt_add |
|
433
|
0 |
0 |
$multi ? : |
|
489
|
0 |
0 |
if ($match =~ /^([-\w]+)=("|')(.+?)\2$/) { } |
|
|
0 |
0 |
elsif ($match =~ /^([-\w]+)=(\S+)$/) { } |
|
|
0 |
0 |
elsif ($match =~ /^no-?([-\w]+)$/i) { } |
|
|
0 |
0 |
elsif ($match =~ /^([-\w]+)$/) { } |
|
502
|
0 |
0 |
if $VERBOSE |
|
506
|
0 |
0 |
wantarray ? : |