| File: | bin/random-string |
| Coverage: | 90.9% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 34 | 50 | T | F | 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 | 100 | T | F | if ($opts{'version'}) |
| 42 | 100 | T | F | if $opts{'help'} |
| 43 | 100 | T | F | if $opts{'man'} |
| 45 | 100 | T | F | if ($opts{'examples'}) |
| 53 | 100 | T | F | unless (defined $pattern) |
| 59 | 100 | T | F | if ($opts{'count'} < 1) |
| 74 | 50 | T | F | if ($@) |
| 82 | 100 | T | F | $opts{'smart'} ? : |
| 85 | 100 | T | F | if ($@) |
| 94 | 100 | T | F | unless $opts{'separator'} =~ /\n$/ |