| blib/lib/App/MyPasswd.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 26 | 92.3 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 2 | 9 | if $$config{'log'} |
| 43 | 1 | 1 | unless open my $fh, '>>', $$config{'log'} |
| 52 | 1 | 10 | if ($$config{'only_number'}) { } |
| 1 | 9 | elsif ($$config{'only_uc'}) { } | |
| 1 | 8 | elsif ($$config{'only_lc'}) { } | |
| 62 | 2 | 9 | if ($$config{'no_symbol'}) |
| 88 | 3 | 24 | $str =~ /^\d+$/ ? : |
| 99 | 27 | 27 | $case eq 'uc' ? : |
| 127 | 1 | 12 | unless ($input and $input_again) |
| 132 | 1 | 11 | if ($input ne $input_again) |
| 147 | 0 | 26 | if $$config{'show_input'} |
| 177 | 0 | 12 | unless GetOptionsFromArray \@argv, 's|salt=s', \$$config{'salt'}, 'l|length=i', \$$config{'length'}, 'only-number', \$$config{'only_number'}, 'only-uc', \$$config{'only_uc'}, 'only-lc', \$$config{'only_lc'}, 'no-symbol', \$$config{'no_symbol'}, 'log=s', \$$config{'log'}, 'show-input', \$$config{'show_input'}, 'h|help', sub { _show_usage(1); } , 'v|version', sub { print "$0 $VERSION\n"; exit 1; } |
| 179 | 10 | 2 | unless defined $$config{'salt'} |