| bin/random-string | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 0 | 23 | unless &GetOptions("count|c=i", \$opts{'count'}, "length|l=i", \$opts{'length'}, "smart|s", \$opts{'smart'}, "unique|u", \$opts{'unique'}, "separator|S=s", \$opts{'separator'}, "help|h|?", \$opts{'help'}, "man|m", \$opts{'man'}, "version|v", \$opts{'version'}, "examples|e", \$opts{'examples'}) |
| 37 | 1 | 22 | if ($opts{'version'}) |
| 42 | 1 | 21 | if $opts{'help'} |
| 43 | 1 | 20 | if $opts{'man'} |
| 45 | 1 | 19 | if ($opts{'examples'}) |
| 53 | 2 | 17 | unless (defined $pattern) |
| 59 | 1 | 16 | if ($opts{'count'} < 1) |
| 74 | 0 | 16 | if ($@) |
| 82 | 1 | 24 | $opts{'smart'} ? : |
| 85 | 1 | 24 | if ($@) |
| 94 | 2 | 13 | unless $opts{'separator'} =~ /\n$/ |