| lib/App/Info/Handler/Prompt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 100 | 12 | 2 | if ($type eq 'unknown' or $type eq 'confirm') { } |
| 1 | 1 | elsif ($type eq 'info') { } | |
| 1 | 0 | elsif ($type eq 'error') { } | |
| 103 | 6 | 6 | defined $val ? : |
| 104 | 0 | 12 | unless my $msg = $req->message |
| 111 | 2 | 10 | unless defined $ans and $ans ne '' |
| 118 | 4 | 4 | unless defined $ans and $ans ne '' |