| lib/CtrlO/Crypt/XkcdPassword.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 22 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 16 | 6 | if ($args{'wordlist'}) { } |
| 41 | 3 | 19 | if (-r $object{'wordlist'}) { } |
| 14 | 5 | elsif ($object{'wordlist'} =~ /::/) { } | |
| 4 | 1 | elsif ($object{'wordlist'} =~ /^\w+$/i) { } | |
| 73 | 2 | 16 | if ($@) |
| 81 | 13 | 3 | if ($handle) { } |
| 2 | 1 | elsif (@{"${pkg}::Words";}) { } | |
| 106 | 2 | 43 | if ($self->_pid != $$) |
| 111 | 2 | 41 | unless $key eq "words" or $key eq "digits" |
| 114 | 12 | 29 | if (defined $args{$key} and not $args{$key} =~ /^[0-9]+$/) |
| 128 | 10 | 21 | if (my $d = $args{'digits'}) |