| blib/lib/App/PerlPPP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 44 | 18.1 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 0 | 2 | if $value < $min or $value > $max |
| 61 | 1 | 0 | 'ARRAY' eq ref $_ ? : |
| 79 | 0 | 0 | unless length $key == 64 |
| 81 | 0 | 0 | unless $key =~ /^[0-9A-F]{64}$/i |
| 94 | 6 | 0 | if @_ |
| 97 | 0 | 6 | wantarray && 'ARRAY' eq ref $value ? : |
| 110 | 0 | 10 | exists $args{$name} ? : |
| 112 | 6 | 4 | if defined $value |
| 116 | 0 | 1 | if keys %args |
| 154 | 0 | 0 | unless GetOptions 'help|?', \$options{'show_help'}, 'man', \$options{'show_man'}, 'key=s', \$options{'key'}, 'passphrase=s', \$options{'passphrase'}, 'columns=i', \$options{'columns'}, 'rows=i', \$options{'rows'}, 'title=s', \$options{'title'}, 'alphabet=s', \$options{'alphabet'}, 'codelen=i', \$options{'codelen'} |
| 167 | 0 | 0 | if defined $value |
| 180 | 0 | 0 | if ($self->show_help) { } |
| 0 | 0 | elsif ($self->show_man) { } | |
| 188 | 0 | 0 | unless @args |
| 190 | 0 | 0 | if (my $code = $self->can("do_$verb")) { } |
| 209 | 0 | 0 | @args ? : |
| 210 | 0 | 0 | if $card_no < 1 |
| 223 | 0 | 0 | if $pad <= 0 |
| 252 | 0 | 0 | if (my $key = $self->_make_key) { } |
| 275 | 0 | 0 | if (defined(my $key = $self->key)) { } |
| 0 | 0 | elsif (defined(my $phrase = $self->passphrase)) { } | |
| 296 | 0 | 0 | if (defined(my $value = $self->$a)) |