| blib/lib/App/Cmd/Plugin/Prompt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 29 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 17 | 0 | 0 | 0 | $$opt{'default'} and $$opt{'valid'} |
| 0 | 0 | 0 | $$opt{'default'} and $$opt{'valid'} and not $$opt{'no_valid_default'} | |
| 33 | 0 | 0 | 0 | defined $response and $$opt{'valid'}($response) |
| 40 | 0 | 0 | 0 | $$opt{'default'} and not length $response |
| 51 | 0 | 0 | 0 | defined $$opt{'default'} and not $$opt{'default'} =~ /\A[yn01]\z/ |
| line | l | !l | condition |
|---|---|---|---|
| 18 | 0 | 0 | $$opt{'invalid_default_error'} || q['default' must pass 'valid' parameter] |
| 22 | 0 | 0 | $$opt{'input'} ||= sub {
scalar |
| 23 | 0 | 0 | $$opt{'valid'} ||= sub { 1; } |
| 30 | 0 | 0 | $$opt{'output'} ||= sub { if (defined $_[1]) { printf '%s [%s]: ', @_; } else { printf '%s: ', $_[0]; } ; } |
| 34 | 0 | 0 | $$opt{'choices'} || $$opt{'default'} || undef |
| 61 | 0 | 0 | $$opt{'default'} || '' |
| 82 | 0 | 0 | $prompt ||= 'press any key to continue' |