| line |
true |
false |
branch |
|
90
|
0 |
0 |
if ($opt->{'default'} and $opt->{'valid'} and not $opt->{'no_valid_default'}) |
|
93
|
0 |
0 |
unless $opt->{'valid'}->($opt->{'default'}) |
|
98
|
0 |
0 |
if (defined $_[1]) { } |
|
113
|
0 |
0 |
if ($opt->{'default'} and not length $response) |
|
139
|
0 |
0 |
if defined $opt->{'default'} and not $opt->{'default'} =~ /\A[yn01]\z/ |
|
144
|
0 |
0 |
$opt->{'default'} ? : |
|
|
0 |
0 |
$opt->{'default'} eq 'n' ? : |
|
|
0 |
0 |
$opt->{'default'} eq 'y' ? : |
|
|
0 |
0 |
!defined($opt->{'default'}) ? : |
|
149
|
0 |
0 |
$opt->{'default'} ? : |
|
|
0 |
0 |
($opt->{'default'} || '') =~ /\A\d\z/ ? : |
|
156
|
0 |
0 |
unless lc $_[0] eq "y" |