| blib/lib/File/KDBX/KDF.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 177 | unless my $uuid = ($args{'$UUID'} //= delete $args{'uuid'}) |
| 27 | 0 | 177 | unless my $kdf = $KDFS{$uuid} |
| 56 | 45 | 6 | if (&blessed($key) and $key->can("raw_key")) |
| 57 | 24 | 21 | if $self->uuid eq "\311\331\363\232b\212D`\277t\r\b\301\212O\352" |
| 80 | 44 | 0 | unless $package =~ s/^\+// or $package =~ /^\Q$class::\E/ |
| 83 | 0 | 44 | if ($blacklist{$id} or $blacklist{$package}) |
| 88 | 0 | 44 | if (defined $KDFS{$id}) |