Branch Coverage

blib/lib/Authen/Passphrase/BlowfishCrypt.pm
Criterion Covered Total %
branch 40 60 66.6


line true false branch
171 7 33 if ($attr eq 'key_nul') { }
11 22 elsif ($attr eq 'cost' or $attr eq 'keying_nrounds_log2') { }
1 21 elsif ($attr eq 'salt') { }
9 12 elsif ($attr eq 'salt_base64') { }
1 11 elsif ($attr eq 'salt_random') { }
1 10 elsif ($attr eq 'hash') { }
8 2 elsif ($attr eq 'hash_base64') { }
2 0 elsif ($attr eq 'passphrase') { }
173 0 7 if exists $self->{'fold'}
177 0 11 if exists $self->{'cost'}
178 0 11 unless $value == int $value and $value >= 0
183 0 1 if exists $self->{'salt'}
184 0 1 unless $value =~ /\A[\x00-\xff]{16}\z/
189 0 9 if exists $self->{'salt'}
190 0 9 unless length $value == 22
195 0 1 if exists $self->{'salt'}
199 0 1 if exists $self->{'hash'} or defined $passphrase
201 0 1 unless $value =~ /\A[\x00-\xff]{23}\z/
206 0 8 if exists $self->{'hash'} or defined $passphrase
208 0 8 unless length $value == 31
213 0 2 if exists $self->{'hash'} or defined $passphrase
220 4 7 unless exists $self->{'key_nul'}
221 0 11 unless exists $self->{'cost'}
222 0 11 unless exists $self->{'salt'}
223 2 9 if defined $passphrase
224 0 11 unless exists $self->{'hash'}
241 2 0 if ($passwd =~ /\A(\$2a?\$)/)
242 0 2 unless $passwd =~ m[\A\$2(a?)\$([0-9]{2})\$ ([./A-Za-z0-9]{22})([./A-Za-z0-9]{31})\z]x
367 0 10 if $self->{'cost'} > 99
368 2 8 $self->key_nul ? :