| blib/lib/App/Cmd/Plugin/Prompt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 29 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 90 | 0 | 0 | 0 | $opt->{'default'} and $opt->{'valid'} |
| 0 | 0 | 0 | $opt->{'default'} and $opt->{'valid'} and not $opt->{'no_valid_default'} | |
| 106 | 0 | 0 | 0 | defined $response and $opt->{'valid'}->($response) |
| 113 | 0 | 0 | 0 | $opt->{'default'} and not length $response |
| 139 | 0 | 0 | 0 | defined $opt->{'default'} and not $opt->{'default'} =~ /\A[yn01]\z/ |
| line | l | !l | condition |
|---|---|---|---|
| 93 | 0 | 0 | $opt->{'invalid_default_error'} || q['default' must pass 'valid' parameter] |
| 95 | 0 | 0 | $opt->{'input'} ||= sub { scalar readline STDIN; } |
| 96 | 0 | 0 | $opt->{'valid'} ||= sub { 1; } |
| 103 | 0 | 0 | $opt->{'output'} ||= sub { if (defined $_[1]) { printf "%s [%s]: ", @_; } else { printf "%s: ", $_[0]; } ; } |
| 109 | 0 | 0 | $opt->{'choices'} || $opt->{'default'} || undef |
| 149 | 0 | 0 | $opt->{'default'} || '' |
| 176 | 0 | 0 | $prompt ||= "press any key to continue" |