| line |
true |
false |
branch |
|
25
|
0 |
0 |
if $opts->{'var'} |
|
26
|
0 |
0 |
if defined $opts->{'default'} |
|
31
|
0 |
0 |
if defined $default && $opts->{'show_default'} // 1 |
|
32
|
0 |
0 |
unless $text =~ /[:?]\s*$/ |
|
37
|
0 |
0 |
unless (defined $answer) |
|
44
|
0 |
0 |
if (defined $default) |
|
45
|
0 |
0 |
unless length $answer |
|
48
|
0 |
0 |
if ($opts->{'required'}) |
|
49
|
0 |
0 |
unless length $answer |
|
51
|
0 |
0 |
if ($opts->{'regex'}) |
|
52
|
0 |
0 |
unless $answer =~ /$opts->{'regex'}/ |
|
54
|
0 |
0 |
if $success |
|
56
|
0 |
0 |
if $opts->{'var'} |
|
72
|
0 |
0 |
if ($ENV{'LANG'} and $ENV{'LANG'} =~ /^([a-z]{2})/ and $supported_langs->{$1}) { } |
|
|
0 |
0 |
elsif ($ENV{'LANGUAGE'} and $ENV{'LANGUAGE'} =~ /^([a-z]{2})/ and $supported_langs->{$1}) { } |
|
84
|
0 |
0 |
unless my $lang = $$supported_langs{$opts->{'lang'}} |
|
90
|
0 |
0 |
if (defined $opts->{'default'}) |
|
91
|
0 |
0 |
if ($opts->{'default'}) { } |
|
100
|
0 |
0 |
unless ($text =~ /[?]/) |
|
105
|
0 |
0 |
$opts->{'default'} ? : |
|
108
|
0 |
0 |
defined $opts->{'default'} && !$opts->{'default'} ? : |
|
126
|
0 |
0 |
grep({$_ eq $answer;} @{$$opts{'yes_words'};}) ? : |