Branch Coverage

blib/lib/Crypt/PBKDF2.pm
Criterion Covered Total %
branch 32 48 66.6


line true false branch
57 20 0 unless ($class =~ s/^\+//)
112 1023 0 unless defined $salt
114 1 1022 if ($self->has_length_limit and length $password > $self->length_limit)
126 1 1022 if ($self->has_length_limit and length $password > $self->length_limit)
135 0 0 defined $info->{'algorithm_options'} ? :
161 0 5053 if ($l > 4294967295 or $l == 4294967295 and $r > 0)
171 9 5044 if ($r)
208 511 511 if ($self->encoding eq 'crypt') { }
511 0 elsif ($self->encoding eq 'ldap') { }
221 0 511 unless (defined $hasher_class and $hasher_class =~ s/^Crypt::PBKDF2::Hash:://)
226 11 500 defined $algo_string ? :
237 0 511 unless (defined $hasher_class and $hasher_class =~ s/^Crypt::PBKDF2::Hash:://)
242 10 501 defined $algo_string ? :
253 511 511 if ($hashed =~ /^\$PBKDF2\$/) { }
511 0 elsif ($hashed =~ /^\{X-PBKDF2}/i) { }
264 0 511 unless ($hashed =~ /^\$PBKDF2\$/)
268 511 0 if (my($algorithm, $opts, $iterations, $salt, $hash) = $hashed =~ /^\$PBKDF2\$([^:}]+)(?:\{([^}]+)\})?:(\d+):([^\$]+)\$(.*)/) { }
284 0 511 unless ($hashed =~ /^\{X-PBKDF2}/i)
288 511 0 if (my($algo_str, $iterations, $salt, $hash) = $hashed =~ /^\{X-PBKDF2}([^:]+):([^:]{6}):([^\$]+):(.*)/i) { }
308 21 1001 if (defined $args) { }
326 1034 0 $self->has_hash_class ? :
1034 0 $self->has_hash_args ? :
0 1034 $self->has_output_len ? :
1033 1 $self->has_lazy_hasher ? :