| bin/speak | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 14 | 35.7 |
| line | true | false | branch |
|---|---|---|---|
| 68 | 0 | 1 | unless &GetOptions(\%opts, "usage", "help", "verbose", "debug", "clipboard", "file=s") |
| 73 | 0 | 1 | if ($opts{'clipboard'}) { } |
| 1 | 0 | elsif ($opts{'file'}) { } | |
| 74 | 0 | 0 | if ($opts{'file'}) { } |
| 0 | 0 | elsif ($msg) { } | |
| 82 | 0 | 1 | if ($msg) { } |
| 86 | 0 | 1 | unless open my $file, "<", $opts{'file'} |